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PREFACE 


Our knowledge of the ionosphere and Its interactions with the 
neutral atmosphere has increased rapidly in the past decade due to the 
availability of a greater wealth of better observational data combined 
with the capability of advanced computer systems to handle complicated 
numerical problems. 

Complex theoretical models and their numerical solutions on large 
computer systems are a requisite to the further advancement of our 
knowledge. This document contains a collection of papers describing 
theoretical modelling activities and numerical solutions obtained using 
the models by personnel of Mississippi State University. It is hoped 
that the document will provide readers a concept of the complexity of 
modelling a three-fluid plasma. 
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CHAPTER I 

NUMERICAL SOLUTION FOR PROPAGATION OF COUPLED LONGITUDINAL 
AND TRANSVERSE WAVES NORMAL TO THE APPLIED MAGNETIC 
FIELD IN A THREE-FLUID MEDIUM 


by 

Ronald W. McClendon and David L. Murphree 


NOTE; Figures, references, and equations begin a new sequence in each Chapter. 
Also, the Appendices are lettered consecutively by Chapter, and 
each Chapter includes its own List of S3nnbols. 
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Introduction 


A three-fluid theory, using Maxwell's equations together with a 
set of coupled hydrodynamic equations for an interacting mixture of 
electrons , ions , and neutral molecules , has been employed by Tanenbaum 
and Mintzer^ to examine small- amplitude oscillations in an infinite, 
homogeneous, partly ionized gas with a uniform external magnetic field. 

Plots of phase velocity versus frequency were obtained for the case of 
negligible collisional damping for wave propagation along and normal 
to the applied magnetic field. A set of approximate solutions to the 
dispersion relation was employed to yield the phase velocities for various 
frequency bands. 

2 

An investigation by Dahl and Murphree yielded a solution to the 
complete three-fluid dispersion relation governing the propagation of 
longitudinal waves parallel to the applied magnetic field. Some differences 
were noticed between their phase velocity plot and the approximate solution 
given by Tanenbaum and Mintzer. In making a comparison, Dahl and Murphree 
were able to substantiate their results by requiring continuity in both 
phase velocity and e-folding distance curves with frequency change. 

Tanenbaum and Mintzer were limited in that their solution was just for 
the phase velocity and it was valid only in various frequency bands. 
Connecting the curves between the frequency bands was a possible source 
of error. 

This paper will present a numerical solution to the complete three- 
fluid dispersion relation governing wave propagation normal to the magnetic 
field. Solutions have been determined for the complex wave numbers for a 
typical ionospheric condition without making any approximations to the 
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dispersion relation. Obtaining the solution without making any approxi- 
mations was made possible only by the use of a computer method to carry^^ . 

out the extremely large number of algebraic manipulations involved. These 

\ 

operations, accomplished by the PL/I-FOEMA.C interpreter in an IBM 360-40, 
could not have been performed manually. Plots of the phase velocity and 

damping characteristics of the resulting wave modes are presented for the 

-5 9 

frequency range 10 < to < 10 . 

The phase velocity plot is compared to the approximate results of 
Tanenbaum and Mintzer. Although Tanenbaum and Mintzer had obtained phase 
velocity results for various frequency bands, a thorough investigation 
of the damping characteristics of the wave modes had not previously been 
performed. The purpose of the work described in this paper was to 
solve for the damping characteristics of the wave modes in addition to 
obtaining a complete numerical solution to the phase velocity over the 
entire frequency range. The resulting method allows for the complete 
solution of any wave propagation problem in a three-fluid medium. 

Theory 


A. General Dispersion Relation 

The derivation of the general dispersion relation which governs 
wave propagation of small perturbations in a partially ionized gas with 
an applied magnetic field present will be outlined. This derivation 
is presented in Reference 1. 

The following model is employed: 

(1) The degree of ionization is fixed 

(2) Each gas obeys the perfect gas law 

(3) Damping caused by the frictional forces of each gas allows 
for the conservation of total momentum of the system 

(4) No heat flow exists within the gases. 



The set of equations given below describes the three-fluid mixture. 

(1) Maxwell's equations: 




VxH = — (N.V. - N V ) + - If 
c lx e e c 3t 


(2) The continuity equation for each gas: 


Dt '■^e,l,n 


- P- j ^ • V . 
e y i y n e j 1 y n 


(3) The momentum equation for each gas: 

_VxHVP __ __ 

(V^) = - (E + ^ ^ ) - 7—^ - - V ) - V (V - V ) 

Dt e m c p el e 1 en e n 

e e 


_ _ V xH VP. __ _ 

W (VJ = -J- (E + ^ ^ ) - 7"^ - V (V - V ) - V (V 

Dx i c ie i e In i 




_ VP _ _ _ _ 

O (V ) = . ^ _ V (V - V ) - V (V„ - V ) 

Dt n p ne n e ni n i 


(4) The adiabatic condition for each gas: 


P N ^ 
e,i,n e,i,n 


constant 


To facilitate the solution a 3-D cartesian coordinate system is 

chosen with x in the direction of wave propagation and z perpendicular 

to the plane formed by x and the applied magnetic field. The applied 

magnetic field vector can therefore be written H = (H , H , 0) . 

® o ox* oy’ 

The above plasma equations may be linearized by perturbing the quantities 

H, V . , E, N , and P . with small periodic oscillations of 

* e,i,n* * e,i,n ^ 

frequency O). For example. 


N = N + n e 
e o e 


i(kx - mt) 


where is the undisturbed electron density, n^ the amplitude of the 
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perturbation, and the resulting electron number density at any 
position X for any time t. The perturbation is considered 'to propagate 
only in the x-direction, i.e., one-dimensional propagation. The perturbed 
quantities are then substituted into the plasma equations yielding 
twenty-one equations and, twenty-one unknowns- These equations can then 
be manipulated by substitution to yield a vector equation for the three 
components of the electron velocity. 


'^1 

A12 

S3' 


V 

ex 

A21 

A22 

S3 


V 

ey 

Si 

S2 

S3 


V 

ez 


where 

All “ (wV^/mC2) 

^12 = 

Ai 2 = iui0i[(C3/Ci) - (C^/mC2)] 

A22 = iC^/ici) - iC^C^/C^) + 

^23 “ ”■^32 ^ “ (iuUi/C2)[C^ - (Cg/m)] 

■ — _ ^31 ~ [ (C^/inCi)^ (C2 t/C2)] 

A33 = A22 + (co2(.%/mCi) 


( 1 ) 


and 


2 2 

C. = oj - iojv , + 0 ) (v V ,/Yo) 

1 e ei en ni 2 

2 2-1 2 
= (JL) (1 - n ) - icov , + 0 ) (v V ./y,) 

2 e ei en ni 1 

^ 2 2 , 2„2 ^ 2 . / . 

C* = to - ( 0 , - k U. + icov . + to (v . V ./Yo) 

3 1 1 1 in ni '2 

^ 2 2., 2s-l ^ . ^2. , . 

= to - to^d - n ) + itov^ + to 

^ 2 2, 2„2 ^ ^ 2 , /V 

C--to - to - kU + itov + to (v V /Yo) 

5 e e e en ne '2 

- 2 2.- 2v-l 2, , . 

C^=to - to(l-n) + itov + to (v V /Yi) 

6 e e ^ en ne '1 
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'1 

^2 


= 0) + io)V 


i,2tt2 

^1 - “n 
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e,l 
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o e,l 


n = kc/o) 


B. Dispersion Relation for a Wave Propagating Normal to the Magnetic 
Field 

Examining waves propagating normal to the ma^etlc fields the longi- 
tudinal component of will be zero» It follows that the longitudinal 
component of the electron cyclotron frequency ^ (o^, will also be zero. 
Applying this condition to Equation (1) we obtain 


A--V + A-.V = 0, 
11 ex 13 ez ’ 


*22% ' “■ 


A,,V + = 0. 

31 ex 33 ez 


( 2 ) 


From the second of these equations we see that a transverse wave 
can propagate provided that previously defined Is zero. This 

solution Is not examined in this analysis. 

The first and third equation of Equations (2) form a set of linear 
homogeneous equations. The determinant of the matrix of coefficients 
must vanish in order that a nontrivial solution can exist. The dis- 
persion relation for the case of a wave propagating normal to a magnetic 
field therefore takes the form 


^ 11^33 “ ■^ 13^31 “ ° 


(3) 


Examining Equation (3) It Is obvious that this dispersion relation 
Is an extremely complicated equation In expanded form. The number of 
terms In this equation would make Its use Infeasible when working by hand 
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This problem is considered later in the Dis*"ussion. 

A computer method for carrying out the necessary algebra in order 

to obtain the dispersion relation k(o)) was then required. The PL/I-FORMAC 

3 

Symbolic Mathematics Interpreter has the capability of symbolic manipula- 
tion of tiathematical expressions. The expressions can contain variables, 
user-defined functions, constants up to 2295 digits, and symbolic constants, 
as well as functions such as SIN, COS, EXP, etc. A factored algebraic 
equation can be expanded and the coefficients of the various powers of any 
of the variables can be collected. This was especially useful in our 
solution for the coefficients of the dispersion relation. 


Having this facility available, the terms C^, Z = 1,2,. . .,6 
were substituted into the appropriate A^^ terms of Equation (3) . This 
procedure yielded a twelfth degree equation in k, the wave number. 


+ A.k® + A.k^ + A.k^ + A,k^ + A^ = 0 

1 2 3 4 5 6 7 


C. Newton-Raphson Iterative Solution 

The dispersion r^ation could also be written in the form 

A-x^ + A^x^ + A«x^ + A,x^ + AcX^ + A,x + A- = 0 (5) 

1234567 

2 

where x = k and the coefficients are complex numbers. A Newton-Raphson 
iterative procedure as shown below was chosen to solve for the roots of 
this equation. 

_ 

^n+1 ^n f ^ (x ) 
n 

or 

A-x^ + A«x^ + A^x^ + A,x^ + A-x^ + A.x + A-, 

^ ^ In 2n 3n 4n 5n 6n 7 

^ 6A-x^ + 5A«x^ + 4AoX^ + 3A,x^ + 2A^x + A, 

In 2n 3n 4n 5n 6 

An initial estimate was made and the iteration was performed until a root 



of the sixth degree equation was found. This root was then factored out 
of the equation by complex synthetic division. For example let x - a 
be a root found from the previous equation. Now by synthetic division 


A 


1 






a 


where B 2 “ A 2 + oA^, etc. then, 

(x - a) (Aj^x^ + B 2 X^ + B^x^ + B^x^ + B^x + Bg) = 0 

Again the Newton-Raphson Iterative procedure can be used to 
solve for a root of the resulting fifth degree equation. Let this root 
be X “ 3, therefore we have 

(x - a) (x - 3)(Aj^x^ + ^ 2 ^^ ^ “ 0 

By continuing this approach, the six roots to this sixth degree poly- 
nomial can be found. It is important to choose realistic values for 
the initial estimates in the iterative solution. If the estimate 
is too far removed from the actual root, the iterative procedure will 
not be successful. 

Discussion 


The computer solution for the wave number k, which describes the 
characteristics of the wave, can be divided into two processes: 

(1) substitution and expansion of the general dispersion relation 
for the specific case of a wave propagating normal to a 
magnetic field 

(2) solution of the dispersion relation for the complex wave 
number. 
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The first process was performed largely by using the PL/I-FOFHAC 
Symbolic Mathematics Interpreter. The main feature of the FORMA.C inter- 
preter as applied to our problem was its ability to carry out algebraic 
manipulations. The process of expanding the dispersion relation given 
in Equation (3) would be essentially impossible to accomplish by hand 
without assigning numerical values to the variables. This method would 
not be acceptable because a new dispersion relation would have to be 
derived manually for each change in the conditions and applied frequency. 

A FOKMAC program was written for the IBM 360 model 40 at Mississippi 
State University to carry out this operation. A simplified flow chart 
of this program is given in Appendix A. The input to this program consists 
of the applied frequency, magnetic field strength, and collision frequen- 
cies, plasma frequencies, acoustic velocities, number densities, and 
masses of the three species for the desired atmospheric condition. 

Due to the size of .some of the quantities exceeding the limitations 
of the computer, it was necessary to change the units of length and time 
to avoid an underflow or overflow condition. The length and time dimen- 
sion was also included in the input, and the velocity and frequency terms 
were converted accordingly. 

The dispersion relation given below was obtained from Equation (3) 
by substituting the expressions for 

+ 2a)^0)^C,C„ - mcjc.c, - mC^C„C. + m^C.C.C.C, 

12 T12 146 235 34 5 6 

22 2 ^ ^ 44 2 2 - - 

- m 0 ) + 0 ) 0 )^ - 0 ) = 0 (6) 

If the expressions for the C's as previously defined were substituted 
into this equation by hand without assigning numerical values to the 
variables, the dispersion relation would be composed of several thousand 
terms. This process was initially attempted, but the complexity involved 
in expanding this equation by hand ruled this method impracticable. 



Furthermore, after expansion the terms would have to be collected to form 
the real and imaginary components of the coefficients of the various 
powers of k. Equation (6) is the form of the dispersion relation before 
any substitutions or manipulations are performed in the FORMAC computer 
program. Since the available storage was not sufficient to hold the 
entire dispersion relation in expanded form, values for the applied 
frequency , cyclotron frequency , collision frequencies , plasma frequencies 
and acoustic velocities were substituted. The dispersion relation was 
then expanded, evaluated, and the coefficients of the twelfth degree 
polynomial were collected and punched out on cards. This approach 
gives a dispersion relation for each of the chosen points on the 
frequency range. 

To check the validity of the algebraic manipulations as performed 
by FORMAC, a test case was formulated. The expression (A + iB)^ was 
expanded for each of the values n= 1, 2, 3, ..., 10. For example, 

3 3 2 2 3 

(A + iB) = A - 3B A + i3BA - iB"^ , 

These ten expansions were then performed manually and the results of 
the FORMAC program were shown to be correct. Our use of FORMAC was 
similar to this example since complex expressions were raised to powers 
and multiplied by other complex expressions. 

It had been hoped that for our problem, the coefficients of the 
wave number in the dispersion relation could remain in algebraic form. 
Storage problems forced the assignment of numerical values to the plasma 
parameters, consequently the coefficients of the various powers of k 
in. the final dispersion relation were numerical constants for the given 
conditions. Algebraic manipulations were still required since the wave 
number k was included in the expressions that had to be multiplied and 
raised to powers. To demonstrate this need, the test case can be used 
again by holding A as a variable and assigning B a value of two. This 
corresponds to holding k as a variable and assigning numerical values to 
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the other parameters In the problem considered In this paper. The resulting 
expression would be 

+ A^(6i) - A(12) - 8i . 

The real and imaginary coefficients of the powers of A could then 
be collected. This is the process in extremely simplified form of the work 
performed by FORMAC to obtain the coefficients of the final dispersion 
relation. The analytical FORMAC compiler facilitated the analysis even 
when numerical values were substituted for the parameters because the 
requirement of manually rearranging the complex quantities in powers of 
k was eliminated. 

The problem was now reduced to the solution of a sixth degree poly- 
2 

nomial in k with complex coefficients. The difficulty lay in the various 

20 

sizes of the coefficients. A range of 10 in the' sizes of coefficients 
was not uncommon. 

A digital computer program was written for the UNIVAC 1106 at 
Mississippi State University to solve for the roots of a polynomial equa- 
tion with complex coefficients. The simplified flow chart for this program 
is given in Appendix C. The input to this program consists of the applied 
frequency, the length and time dimension, and the coefficients of the poly- 
nomial. Since we were working with a polynomial equal to zero (£q. 5) it 
is permissible to multiply all the coefficients by some constant. 

Due to the size of the coefficients it was necessary to do this to 
avoid an overflow or underflow condition. The quantity by which the 
coefficients were multiplied was also included in the input to the poly- 
nomial roots program. The roots of the polynomial equation are found by 

a Newton-Raphson iteration coupled with a synthetic division operation. 

2 

The six roots to this sixth degree polynomial are equal to k . The square 
root of a complex number must now be taken to yield the wave number, k. 

The square root operation was performed by the subroutine XPOCPX 
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using the equation 

/ • f J 2 j ^2xl/n r /4> 27^K^ , j ^ + 27rK\ t 

n n 

where 

K=l,2, ...jn-l, and <p is the argument of the complex number. 

Taking the square root of the six complex numbers, we obtain twelve 
solutions for the wave number. Restricting our analysis to waves propa- 
gating in the positive x direction, we will have six wave numbers. 

k. =■ k + ik j = 1, 2 6 

The other six will be same waves propagating in the negative x direction. 
Previously, the length and time units were changed from meters and 
seconds respectively to avoid an underflow or overflow condition. The wave 
number *s dimension is 1/ length so it must be converted back to 1/meters. 

The phase velocity for each wave is w/k where o) is the applied frequency. 
The damping characteristics of the wave is contained in the imaginary 
part of the wave number, k- 

■L . 

Results 


The solution was obtained using field parameters of a typical iono- 
spheric condition at an altitude of 320 kilometers at 45° North latitude 


and 90° West longitude. 

V , ■ 1.1202 X 10 ^ coll/sec 
nl 

= 2.2541 X 10"^ coll/sec 

V = 1.3072 X 10^ coll/sec 
en 

V . = 5,7883 X 10^ coll/sec 
el 

Perturbation frequencies ranging 


0 )^ = 2.8806 X 10^ rad/sec 

“ 1.5731 X 10^ rad/sec 

U. . = 8.5097 X 10^ m/sec 

f ,i,n 

■ 2.8158 X 10^ m/sec 
-5 9 

from 10 to 10 radians/second 


were examined. As mentioned previously, there are six values of k which 
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represent waves propagating In the positive x direction, l.e. positive 
where k " + Ik^. Not all of the six mathematically possible solutions 

would necessarily represent physically possible wave modes. A value of 
k with a negative Imaginary component would allow for an exponentially 
Increasing amplitude of the perturbation with Increasing distance from 
the source. A phase velocity plot of the approximated solutions of 
Tanenbaum and Mlntzer (Fig. 4 of Reference 1) Is presented as Fig. 1. 

This plot was obtained by Tanenbaum and Mlntzer from a set of approximate 
solutions to the complete dispersion relation, each approximate solution 
valid In a given frequency range. From that analysis it appeared that 
there should be four physically possible solutions. 

At relatively high frequencies there 'were, In fact, four physically 
possible solutions and two that were not physically possible. At low 
frequencies, however, there was a repeated root to the dispersion relation. 
This repeated root corresponded to a physically possible solution, leaving 
only one solution that was not physically possible. 

The phase velocities and corresponding e-foldlng distances of the 
wave modes which exhibit decreasing amplitude with Increasing distance 
from the source are plotted In Figs. 2 and 3 respectively. The waves 
which exhibit Increasing amplitude with Increasing distance from the 
source are plotted similarly In Figs. 4 and 5. In these four figures, 
both the horizontal and vertical axes are plotted on logarithmic scales. 

Some difficulty was encountered In constructing smooth curves for 
these solutions due to the fact that we were limited In the number of 


points. As described earlier, the complexity of the problem prevented 
us from obtaining a single dispersion relation valid for all frequencies. 
Since the applied frequency was Included In the Input along with the 
atomospherlc parameters, the FORMAC program solved for a dispersion relation 
good only for that particular frequency. 
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Phase Velocities 

As seen in Figs. 2 and 3 at low frequencies, u - only three of 

the four possible wave solutions have relatively large e-foldlng distances. 

_2 

The fourth wave mode has an e-foldlng distance less than 10 meters; 

therefore, at low frequencies It does not propagate. Mode 3, one of the 

three wave modes which Is not damped out, has an extremely small phase 

velocity. Consequently, It appears that at low frequencies only two 

of the four possible wave solutions will propagate. Mode 1 has a phase 

velocity of U , the acoustic velocity In the neutral gas, and mode 2 has 
n 

a lower phase velocity. In the numerical calculations, and the acoustic 

velocity in the ion gas, U^, were taken to be the same. 

For < w < wave modes 2 and 3 increase in phase velocity 

with Increasing frequency. Wave mode 1 which propagates at for 

(A) ~ continues to propagate at this constant value for higher applied 

frequencies. In this range the fourth wave mode continues to propagate 

at a constant phase velocity less than U^. 

As 0 ) increases in range < w < o)^, wave mode 2 increases to 

V’ , the Alfven velocity in a medium composed of a mixture of just the 
a 

charged particle fluids, and then decreases to as w approaches o)^. 

The phase velocity of wave mode 3 increases to a value well above the 
speed of light, c, as the applied frequency passes As o) nears 

0 )^ the phase velocity of this mode decreases abruptly and approaches 
a phase velocity of U^. In the range < o) < co^ the e-folding distance 
for this solution is small and this wave mode does not propagate. In 
this frequency range wave mode 1 continues to propagate at a phase 
velocity of as the frequency increases. The fourth wave mode starts 
to increase in phase velocity in this frequency range and has a phase 
velocity near c as o) passes to^. The phase velocity of this mode increases 
past c in the range o)^ < oj < and then starts to decrease and approaches 
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* 

c as 03 approaches o)^. However, as shown in Fig, 3, for the frequency 

range < 03 < this fourth wave mode has an e-folding distance 
-2 

less than 10 meters; therefore, for this mode there is no propagation 
of ^the disturbance. 

For 0 ) > 0 )^, inode 4 has a phase velocity of the speed of light, 

mode 3 propagates at the acoustic velocity in the electron gas U^, 

and wave modes 1 and 2 have a phase velocity U^. However, wave mode 

-2 

1 has an e-folding distance less than 10 meters, and therefore does 
not propagate. 

These results will now be compared with the approximate solutions 
of Tanenbaum and Mintzer given in Fig. 4 of Reference 1 and presented 
as Fig. 1 of this paper. The points ^Q2* ^03 frequency 

axis in the results by Tanenbaum and Mintzer were added to Fig. 2 to 
aid in this discussion. The wave mode, which increases to a phase 
velocity of U^, i.e. mode 1, and continues to propagate at that velocity 
for increasing frequency, compares quite well with a solution found by 
Tanenbaum and Mintzer. 

Wave mode 2, in which the phase velocity increases to V* then 

a 

decreases, has the same shape as a solution of Tanenbaum and Mintzer 
for 0 ) > "^^^9 since and are assumed to be equal. In the range 
< 0 ) < 0 )^, the approximate solution shows the phase velocity first 
increasing to and then at decreasing to Up before finally de- 
creasing to at 03^. As shown in Fig. 2, the distance between 
and 03^ for our calculations is quite small as compared to the distance 
between v. and 03^o» also the value of U-. is near.U . Even with the 
very small region involved, mode 2 does appear to decrease to Up at 
03 ^^ and then approach U at o), . Since we have taken U. and U to be 
equal, our result for 03 < 03 ^ agrees well with the approximate solutions 
of Tanenbaum and Mintzer. 
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In the region u) < the approximate solution has a wave mode with 
a phase velocity of V , the Alfven . velocity , before It starts to Increase 
to at Our solution does not agree with this result in this region. 

The phase velocity for our corresponding wave mode, l.e. mode 2 as shown 
in Fig. 2 is much lower than the Alfven velocity. 

Tanenbaum and Mintzer show two other approximate solutions in the 
frequency range near One solution decreases at to a phase velocity 

of c and at it begins to decrease again to a value of U^. The other 
curve decreases to c and the phase velocity remains constant for 

higher frequencies. 

From Fig. 2 we see that for our case and are for practical 
purposes the same point and and 0)^2 extremely close. Considering 

the very narrow frequency range involved, Tanenbaum* s result compares 
quite well with modes 3 and 4 of Fig. 2. At both mode 3 and 4 have 
phase velocities well above c. At mode 3 first decreases abruptly 
and then has a slight tendency to level as the. phase velocity passes c. 

As the frequency increases the phase velocity decreases again before 
reaching a constant value of The phase velocity of mode 4 begins 

its decrease slightly after mode 3 and it approaches a constant value 
of c for higher frequencies. 

e-foldlng Distances 

The e-folding distance is defined as the distance from the source 
of the perturbation at which the amplitude of the wave is damped to 1/e 
of its initial amplitude, where e is the exponential factor. The solution 
for the e-folding distance to describe the damping characteristics of 
each wave mode was not obtained by Tanenbaum and Mintzer. Each of the 
e-folding solutions corresponds to one of the phase velocity solutions, 
since both quantities are taken from the imaginary and real components, 
respectively, of the same wave number, k. Note that corresponding 
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solutions are symbolized in the same manner on each graphr Fig. 3 presents 
the plot of e-folding distance versus applied frequencyc 

The e-folding distance, corresponding to wave mode 1 in which the 

wave propagates at U^, did not form a continuous curve® The points 

indicate a curve in the general shape as shown, but a smooth curve could 

not be drawn. It appears that for o) < mode 1 is essentially undamped. 

The e-folding distance of this mode decreases with increasing frequency 

for 0 ) > V, . 

xn 

Wave mode 2, in which the phase velocity increases to and then 
decreases to U^, has an e-folding distance that at low frequencies first 
decreases with increasing frequency. At a point between and 
the e-folding distance starts to increase and reaches a maximum as the 
phase velocity approaches V\ At when the phase velocity starts 
to decrease the points on the e-folding distance plot become scattered. 

No attempt was made to draw a curve through these points. 

-2 

Wave mode 4 has an e-folding distance less than 10 meters for 
the range m < O)^. e-folding distance increases abruptly 

indicating that for this mode a disturbance does not propagate except 
for frequencies above 

The remaining wave mode, mode 3, has a high e-folding distance 
for frequencies below but the phase velocity in this range is 

very low. The e-folding distance decreases and the phase velocity 
increases as the frequency is increased. At the e-folding distance 

increases to 10 meters and remains at this value until the frequency 
nears At this point the e-folding distance increases to a significant 

value and the wave mode is essentially undamped for frequencies w > 

Both of these latter wave modes, mode 3 and mode 4, have frequency ranges 
in which the phase velocity increases above the speed of light. However, 
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In these ranges the corresponding e-folding distances are small and the 
two waves are damped out. 

Exponentially Growing Wave Modes 

Figs. 4 and 5 contain the phase velocity and e-folding distance plots 
of the wave inodes which exhibit increasing amplitude with increasing 
distance from the source. At low frequencies there is only one mode with 
a negative e-folding distance. The phase velocity for this mode increases 
with increasing frequency from a value below at the lower end of the 
frequency spectrum until it approaches the speed of light. The phase 
velocity then remains constant at the speed of light for increasing 
frequency. The e-folding distance for this mode starts decreasing in 
magnitude from a large negative value at low frequencies. Near the 

e-folding distance begins to increase in magnitude and continues to increase 
with increasing frequency. Near an applied frequency of 10 radians /second 
another mode appears with a negative e-folding distance. This wave mode 
has a constant phase velocity of for increasing frequency. The e-folding 
distance for this wave mode when plotted did not form a smooth curve and 
was not included in Fig. 5. 


Con :'lusion 

Complete solutions were obtained for the dispersion relation, based 
on the three-fluid plasma model, which governs the propagation of small 
perturbations normal to the applied magnetic field. The waves investigated 
were coupled longitudinal and transverse waves. A pure transverse wave 
can propagate normal to an applied magnetic field, but this case was not 
considered in this analysis. The solution for the complete dispersion 
relation governing coupled longitudinal and transverse wave propagation 
with no approximations made is advantageous because it gives the complete 
description of the wave propagation across the entire frequency spectrum 
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considered. The resulting wave numbers consist of both real and Imaginary 
parts which describe both the phase velocity and damping characteristics 
of each solution. 

Obtaining the solution without making any approximations was tnade 
possible by use of a computer method to carry out the extremely large 
number of algebraic manipulations Involved. These operations, accomplished 
by the PL/I-FORMAC interpreter in an IBM 360-40, could not have been per- 
formed manually. 

The approximated phase velocity predictions made by Tanenbaum and 
Mintzer agree in most of the frequency ranges with our solution considering 
the limited number of points on the frequency range. Although Tanenbaum 
and Mintzer obtained approximated phase velocity results, they did not 
solve for the e-folding distances of the wave modes. Besides obtaining 
a complete numerical solution to the phase velocity over the entire 
frequency range, this paper presented an analysis of the damping charac- 
teristics in the form of the e-folding distance. Atmospheric conditions 
were chosen in this analysis but now that the method has been shown to 
be valid, any three-fluid problem of coupled longitudinal and transverse 
wave propagation normal to the applied magnetic field could be solved 
by using this approach. 
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CXQT 

0017-01/13-14:36 

S7ART=010463» PROG SIZE ( I/C > =3919/2170 

read: get data; 

/• ROUTINE TO CHANGE TO APPROPRIATE UNITS OF TIPE AND LENGTH, •/ 

IF FACTIK£=0 THEN 60 TO SAME? 

,IF FACTIPE=1 then GO TO DESI; 

IF FACTINE=2 THEN 60 TO CENTU 
IF FACTI^E=3 then GO TO MLLi; 

IF FACTIHE=4 THEN GO TO VINUS4J 
IF FACTINE-5 THEN GO TO r^INUSSS 
IF FACTIPE=6 THEN GO TO r>'ICRo; 

IF FACTiyE=7 THEN 60 TC viNUS7f 
IF FACTINE=a THEN 60 TC I^INUSas 

DESI: REW=RElv*l.uE-l» n£= aE* 1 . 0E“1 > WI=i«I*ltOE-ll VEI=VEI*l»OE-ll 

VEN=VEN*l.uE-15 V 1N = V IN*1 . OE-1 » VN I=VM«>1 , QE-1 > UE=UE*1»0E-1> 

UI=UI*1.0E'-1J UN=UN*1*0E-1> CL=CL*1 • OE-1 ; 

GO TO SAVE! 

CENTi:RE*»=REto*1.0E-2> *£= AE*1 . OE-2 ; H I='a 1*1 . OE-2 » VE1=VEI*1 • 0E“2 » 

VEN=VEN*1.0E-25 V 1N = V1N*1 .OE-2 5 VM=VNI*1 . OE-2 » UE=UE*1.0£-2I 

LI=UI*1.0E-2r UN=UN*l*OE-28 CL=CL*1 . OE-2 ! 

Gc TO safe; 

FIULi; REW=REh*1.0E-3; V.E =V»E*1 . OE-3 ; V*I = rtI*1.0E-3; VEI=VEI*1.0E-3; 

VEN=VEN*l.CE-3; V 1N = V IN*1 . OE-3 ; VM = VNI*1 , OE-3 > UE=UE*1.0E“3I 

UI=UI*1.0E-3; UN=UN*l»0E-3; CL=CL*l»0E-3» 

GC TO safe; 

FINUS4: REVi=REA*J *0E-4; V.E=UE*1 . OE-4 ; Wl=WI*1.0E-4; VEI=VEI*1.0E-4I 

VEN=VEN*l.cE-4; V lN = VIN*i . OE-4 ; VNl = VM*l,0E-4; UE=UE*1.0E-4; 

Ul=Ul*1.0E-4; UN=UN*l»0E-4; CL=CL*l«0E-4; 

GC TC safe; 

FINUS5: REW=REa*J .OE-S; hE=V>E*1.0E-5; V»I=WI*1,0E-5; VEI=VEI*1.0E-5J 

ven=ven*i.ie-5; vxn=vin*i.oe-5; vm=vm*i,oe- 5; UE=uE*itOE-s; 
LI=UI*1.0E-5; UN=UN*l»0E-5; CL=CL*1 • OE-5 ; 

GC TO safe; 

FICRO: REW=REh*l ^0E-6; AE=WE*1«0E-6; WI=Wl*1.0E-6; VEI=VEI*1.0E-6I 

VEN=VEN*l.cE-6; VlN=VIN*1.0E-6; VNI=VM*1,0E-6I UE=UE*1 . 0£-6 ; 
UI=Ul*1.0E-6; UN=LN»l*0E-6; CL=CL*1 • OE-6 ; 

60 TO safe; 

F1NUS7: HEA = REa*J .OE-7; hE=AE*1.0E-7; Wl=V*I*1.0E-7; VE1=VEI*1.0E-7» 

VEN=VEN*1.0E-7; V IN=V IN »1 . 0£-7 ; VNl=VNI*1.0E-7; UE=UE*1 . OE-7 ; 

UI=Ul*1.0E-7; UN=UN*1.0E-7; CL=CL*1.0E-7; 

GC TC safe; 

FINUSe; R£W=REa*J .OE-a; V.£=AE*1.0E-8; WI=WI*1.0E-8; VEIsVEI*1»0E-8I 

VEN=VEN*1.0E-a; VIN=VIN*1.0E-a; VM=VM*1.0E-e; UE=UE*1.0E-8» 

ui=ui*i.OE-e; LN=uN*i.oE-a; cl=cl*i.oe-8; 

GC TO safe; 

safe: if FACLEr.=0 THEN GC TO OKAY; 

IF FACLEN=1 THEN GO TO FIO; 

IF FACLEi,=2 THEN GC TO FlOO; 

IF FACLEN=3 THEN GO TC KF; 

IF FACLEN=4 THtN GO TO F10TC4; 

IF FACLEi.=E THEN GC TO F10T05; 

IF FACLEt.=fc THcN go TC FEGA; 

IF FACLEI.=-1 Then gc TC DECIF f 
IF FACLEl.=-2 THEN GC TO CENTIF f 
IF FACLtI =-3 THEN GC TO FILLIF; 

IF FACLLI.=-4 THEN GC TO NEG4; 

: UE=UE*i.CE+4 ; Ul=UI*1.0E+4 ; UN=UN*1.0E+4 f CL=CU*1.0E+4 J 


NEG4 
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. 6C TC OKAY ; 

MILLIk: UE=UE*1.0E+3 J LI=Ij1*1»0E+3 ; UN=UN*1.0E+3 » CL=CL*1.0E+3 » 

GC TC OKAY I 

CENTIV; LiE=UE*1.0E+2 J Ll=UI*1.0E+2 ; UN=UN*1.0E+2 ! CL=CL*1.0E+2 » 

GO TC OKAY ; 

DECIK: UE= UE*i.0E+l ; UI = UI*1.0E+1» UN=Un*1.0E+1 » CL=CL*1.0E+1 I 

GC TC OKAY i 

Hio: UE=IjE*1.0E-1 ! U1=UI*1.0E-U un=un*i»oe-i> CL=CL*1.0E-1 j 

GC TO CKAYf 

Kloo; UE=OE*1.0E“25 01 =UI* 1 . 0 E“ 2 J UN=UN*1.0E-2; CL=CL*1.0E“2J 

GO TC CKAYf 

km; UE=tE*1.0E-3f Cl=UI*1.0E-3f UN=UN*l»0E-3f CL=CL*l»0E-3> 

'GC TO okay; 

M10TC4: UE=UE*X,0E-4; Cl=UI*1.0E-4f UN=UN*1 . OE-4 I CL=CL*1 . OE-4 » 

GC TO okay; 

MldTCS: UE=UE*l,0E-5; C1=L:I*1.0E-5; UN=UN*1*0E-5; CL=CL*1.0E-5» 

GC TO okay; 

mega: UE=UE*1.0E-6; C1=UI*1.0E-6; UK=UK*1.0E-6; CL=CL*1.0E-6» 

okay; /* CHANGING PL/i VARIABLES TO FOHMAC VARIABLES */ 

LeT( WE='.\E“ ;iM='hIt ;UN=*UN* JUI=*uI' SUE=»UE» ; revs = *REW» ; 
veK=»vlN' ;vei='VEI* ;viN=*viN* ; vm=*vni* ; 

ME='ME‘ ;M=*M» f H=tH* ;CE=*CE» fCL='CL« f 
NE=»KE' ;Nr\=*KK» ;LIMIT=* LIMIT • ) i 
/* BASIC EGUA'IICNS NEECEC TO HUN PROGRAM EFFICIENTLY */ 

LET( M = NL5 i/=MI/ME; 

VIE =(\EI*NE)/(M*M) ; VNE = ( VEN*NE)/ (M*NN) f 

VE =ve:+ven; vi-vie+vin; vn=vne+vm; 

LESG=Lt*»2J LIS'.J=UI**2; UNSQ=UN**2; 
lNESQ=iM f,ISG=Vm**2! CLSG=CL**2> 

MSG=M**2; mcl=^**3; wtsg=wt**2; 

WTGU=V*TSG**2! hLSG=ViL*»2; V^LQU=WLSQ**2 5 
WSG=li*»2 ; KCL=A*V'iS(3f WGUAC=wSQ**2 f 

^,2WT2= aSG + VjTSG! 
ln2vtL2 -■ KSG * wLSG • 

Vk4V»T4 - n2VkT2**2; 

V»4wL4 :: ViZViL2**2i 
V.4V(TL2 = WGUAC*1\ rSG*ViLSQ) S 
VIE = ARITH(VIE) ; 

VNE = ARIThCvl.E) ; 

NI = ARITH(M) ; 

/♦ PRINT OUT EASIC FIELD PARAMETERS AND INPUT CATA */ 

FUT LIST ( ’COMPLETE ThREL-F'LUId THEORY DISPERSION EQUATION* )PAGE» 

PUT ECIT ( ’MAGNETIC FIELD STRENGTH = ’»H»’ ViiEbERS PER SQ. METER’) 
(SKIP(6) rA»E (12r5) » A) ; 

FUT ELIK’PLASMA FREQUENCY OF ELECTRONS = ’»V*E) (SK IP < 1 ) » A »E ( 12 »5 ) ) ) 
PUT EDIT ( ’PLASM/'. FREQUENCY OF IONS = ’»WI) (SK IP ( 1 ) » A» E ( 12 r 5 ) ) f 

PUT ECIT ( ’COLLISION FREQUENCY OF ELECTRONS WITH IONS = ’»VEI) 

(SKIP(l) »ArE(12»5) ) ; 

PUT EDIT ( ’COLLISION FREQUENCY OF ELECTRONS WITH NEUTRALS = ’»VEN) 
<SKIF(1 J »A»E(l2»b) ) ; 

FUT EClT(’CCLLIS,ON FREQUENCY OF IONS WITH ELECTRONS = ’»VIE> 

(SKIPdi ►AfE(12»b) ) 5 

PUT EC1T< ’COLL'SIGN FHtGUENCY OF IONS tolTh NEUTRALS = *»VIN) 

(SKIPll/ »A.£(12r5) ) ; 

FUT £ClT(’COLLIS.;ON FREQUENCY OF NEUTRALS- wITH ELECTRCNS = ’»VN£) 
(SKIPd; »ArE(12»b) ) ) 

PUT EC1T( ’COLLISION FREQUENCY CF NEUTRALS aITh IONS 


’ »VNI) 
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(SKlP(l) rAiE(12fS) ) I 

POT EDIT( ‘ELECTRON SOUNt) VELOCITY = *»UE»* METERS/SECGND* ) 
(SKIP(l) *ArE(12»5) »A) > 

PUT EDIT1‘10N SOUND VELOCITY = *pU1»* METERS/SECOND*) 

(SKlP(l) rArE(12r5) »A) ; 

PUT ECITC ‘NEUTRAL SOUND VELOCITY s ‘»UN»‘ METERS/SECOND ‘ ) 
(SKIP(l) »AfE(12»5) »A) ; 

PUT EDIT (‘ELECTRON NUMBER DENSITY =‘ »NE» 'NUMBER PER CUBIC METER‘) 
(SKIP(l) »A»E(12»5) »A) ; 

PUT EDIK ‘ION NUMBER DENSITY =‘ »NI» ‘NUMBER PER CUBIC METER‘) 

(SKIP(l) rArE(12rS) rA) } 

PU- TdNEUTRAL NUMBER DENSITY =‘ >NN» ‘NUMBER PER CUBIC METER‘) 
(SKIP(l) rArE(12»S) »A) i 
/• RELATIONS TO SHORTEN RUN TIME */ 

LET( SUBl = WISQ^'VNi SUB2 = WESQ*VNf 

SUB3 = VE + VN; SUB4 = VI + VN» 

SUBS = (VE*VN)- (VEN+VNE) I 

SUB6 = (VI*VN)-(VIN*VNI) I 

SUB7 = (VEI*VN)+(VEN*VNI) t 
SUBS = WCU*CLSO i SUB9 = WOUAD*CLSQ K 

/* OBTAIN EQUATIONS FOR wUST THE NUMERATORS OF THE C‘S 
SINCE THE DENOMINATOR WILL BE MULTIPLIED OUT IN THE 
FINAL dispersion RELATION. THE FORM OF THE EQUATION 
IS AS follows: 

C(I) =• AdJ+K-M-ii + B(I)*K**2 + D(I) */ 


LEK Ad) = 0.0 >’ 

A(2) = 0.0> 

A(3) = UISG*UNSQ) 

A(<t) = o.o; 

A(5) = UESQ*UNSQ! 

A(6) = o.o: 

B(l) = -(WESG*UNSQ) + (ttI*W*VEI*UNSQ) J 
B(2) s -(WSQ*CLSG*SUB7) + («I*WCU*CLSQ*VEI ) t 
B( 3 >=(WISG*UNSG)-WSQ=‘(UNSa+UISG)-(«I*W)*(VN*UISQ+VI*UNSG) I 
B(4) = IWSG*CLSG*SUB6)-(SUB9)“(«I^SUB8*SUB4) ; 
B(5)=(WESQ*UNSQ)“WSQ* (UNSQ+UESQ)-(WI*W)*(VN*UESQ+VE*UNSQ) » 
8(6) = (WSQ*CLSQ=<SUB5)-(SUE9)-(«I‘‘SUB8*SUB3) S 
D(l) = WSG*(W£SG-sSUB7)+ fl !♦ ( W*SUB2-WCU*VEI ) » 

D(2) = WSC* C(l) t 

D(3)=WGUAD-WSQ* (WISQ+SUB6)+ «I* (WCU^SUBH-W^WISQ^VN) » 

C(4) = WSG * C(3) 

D(5)=WQUAC~WSQ*(WESQ+SUB5)+ «I* (WCU*SUB3-W*WESQ*VN) .* 

C(6) = WSG ♦ C(5;’ ) ; 

/• DENOMINATORS FOR C'S */ 

LET( CDEM(l) = (-UNSG=^K**2) + (WSG+»»I=*W*VN) ) 

CDEM(2)=(-WSQ*CLSG-4I*W*CLSG*VN)*K**2 + (WQUAD+BI*WCU*VN) » 
CDEM(3) = CDEM(15 5 
CDEM(4) = CDEM(2) i 
CCEM(5) = CDEMd; t 
C0EM(6) = CDEM(2) )t 

/* equations FOR C‘S WITH oUST THE NUMERATOR ♦/ 

EGS: DC 1=1 TO 6 BY 1 S LET(I=*I‘); 

LET( C(D = A(I)*K**4 + 0(I)*K**2 + C(I) )J 

atomize ( A(i);b(i);D(i));. 

END EGS) 

/♦ PREPARING TC OBTAIN EACH TERM, OF CISFEKSICN RELATION 


1 
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AS FUNCTION OF WmT»« KiL. COLLECTING LIKE QUANTITIES 
IN EACH TERK TO f^AKE PROGRAM MORE EFFICIENT. */ 

LET( CISQ = C(1)**2J C2SG = C(2)**2> 

C4SG = C(4)«*2; C6SG = C(6)**2> 

,C1C2 = C(I)*C(2)> C3C4 = C(3>*C(4)l 
C3C5 = C(3)*C(5)J C3C6 = C(3)*C(6)» 

C4C5 = C( 4 }*C( 5 >) C 4 C 6 = C( 4 )*C( 6 )f 
C4C6SQ = C4C6**2! C5C6 = C(5)*C(6)J 
C2QU s C2SG«*2; C10C20 s C0EM(1)*C0EN (2) I 

C20SQ = CDEM(2)**2S C1DC2DCU = C1DC2C*C2DSQ » 

CIC2CSQ = ClCC2C**2i C2DQUAD = C2CSQ**2 )f 
/* INCIVIDUAL TERNS OF DISPERSION RELATION */ 
CPTSEKNCEXPnD) t 

LETCTERNd) = C1SG*C2SG 5 . 

7ERN(2) = C1CC20*2.0*WSQ*WTSQ*C1C2 f 
TEHM(3) = -M*C1SG*C4C6 S 
TERN(4) = -M=*C2SG*C2C5 } 

TERM (5) = NSG*C3C4*C5C6 J 

TERM<6) = -C1DC2C*nSS*wSQ*WTSG'»C3C4 f 

7ERM(7) = ClC2CSG*ttGUAD*WTGU ; 

TERN(8) = rClDC2D*VkSG»WTSG*G5C6 )J 

/* ATOMIZING variables NC LONGER NEEDED. ♦/ 

ATOMIZE (ClSGJC2Sa.'C4SQ;C6£QfClC2fC3C4fC3C5.'C3C6fC4C5»C4C6» 
C4C6SQfC3C6jC2GL;ClCC2D;C2D5G;ClDC2DCD>ClC2DSQ» 

C2CGUAD) ! 

OPTSET(EXPND) ! 

REKT = (CE*h)/(NE) S 

/* THE FOLLOhING CHANGES REWT TO CORRECT UMTS OF TIME */ 

IF FACTINE=0 THEN REtaT=RE\i»T ; 

ELSE IF FACTINE=1 THEN F EWT=REWT*1 . 0E“1 '• 

ELSE IF FACTINE=£ THEN KEV<T=REV(T*1 . 0E"2 5 

ELSE IF FACTINE=3 THEN FErtT=REwT*l . 0E“3 > 

ELSE IF FACTINE=4 THEN FEV.T=REV*T*1 . 0£-4 t 
ELSE IF FACTIME=5 THEN HE*T=REV>T*I . 0E“5 » 

ELSE IF FACTINt;=6 THEN HEWT=REV»T*1 . 0E“6 f 
ELSE IF FACTINE=7 THEN PEhT=REhT*l . 0E“7 ! 

ELSE IF FACTlNE=t THEN F EWT=R£wT*i . OE-8 I 
LET (RE\nT=*rEWT» ) ; 

OFTSET(NOEXp\D) i 

terms; do 1=1 TC 6 BY 1 '■ LtT<I=*IO; 

LET(FTERM.<I) = REFLAC E ( TERM ( I ) » WT » RE»>T » N »REW ) ) J 
END TERMS ! 

LET (DISPER=0,0) ! 

CPTSET(EXPNC) ; 

DO 1=1 TO 8 BY I ; LET(I=»I»)J 
LET (CISPER=LISPER + FTENM(I) ) r 

end; 

LET( FACtlME = ’FACTIME’ I FACLEN = ’FACLEN’ ) ; 

/* NON GET COEFFICIENTS OF K IN FORM TC BE PUNCHED OUT */ 

LET( Z = HIGHFCW(CISFER»K) i 
X = LCrtPCH(CISFIlR»K) ) ; 

kccef; do I = 2 to 12 by 2 ; let(i=*I’); 

LET( CCEFK(I) = CCEFF (CISPER.K**!) ; 

CCEFKKI) = CCEFF(CCEFK(I)fHI) i 
ccefkn(I) = ccEFK(i) - «i*ccEFKiii) ); 

END kcuef! ■ 

/* PUT IN constant term CF DISPERSION RELATION AS CCEFKvtO) */ 



LET( L s 0.0 > 

COEFK(O) = REPLACE (0ISPE1^*K»L) > 

COEFKHO) = CCEFF(C0EFK(0) »MI) ) 

COEFKB(O) = COEFK(O) - «I*C0EFKI(0) )» 

/• PtKCh OUT ALL REAL AND IMAGINARY COEFFFICIENTS OF EACH 
PCWEh OF Kr STARTING MITH HIGHEST POWER. */ 

XPUNCh: CO 1= 12 BY -2 TO Of LET(Iz*I*)> 

LETt C0ER=CCEFKR(I) » 

COEI= COEFKI(I) )> 

PLCOERs ARITH(COER); 

PLCOEIz AfaTH(COEl ) t 

PUT FILE(SYSPNCH)E0IT(PLCCER) {SKIP(1)^EU3»5))» 

PUT FILE(SYSPNCH>E0IT(PLC0EI) (SKIP(l)fEU3r5))> 

ENC xplnch; 

/• CISPERSICN relation FOR THE GIVEN VALUES OF 
INPUT VARIABLES>WT»AND W */ 

REW=10.0*REV ; 

LET(REW=*REV' *) ; 

IF RtW<= LIMT THEN GO TO TERMS» 

GC TC READ) 

quit; put list(» se-: other side»)> 

END DISREL? 



APPENDIX C 


SIMPLIFIED FLOW CHART OF POLYNOMIAL 


ROOTS COMPUTER PROGRAM 



HEAD 


•COEFFICIEITTS OF DISPERSION 
' RELATION, APPLIED FREQUENCY, 
LENGTH AND TIME DIMENSION, FACTOR 



IF DEGREE - 0 



WRITE RESULTS 
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APPENDIX D 

LISTING OF POLYNOMIAL ROOTS COMPUTER PROGRAM 
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CXGT 

KAP 0017-01/13-11 ;^!0 

START=0l0«t63» PR06 SIZE ( I/U > =3919/2170 
CIPENSION A.:. (20) 

CCLELE PREC 1.SI0K A(20) »FRE'FIM>FPRE»FP1M»XRE»XIK>X2RE»X2IP»X3RE» 

1 X3II''»X4RE»X41f/»X5RErX5IK»X6REfX6IM*aRE»BIM»MJR.RE»NUMIK,DEP»l»» * 

2 X6RE»X8In » .'>7RE»X71n»ERR0RE»ERROIK »X(20) »TERP»FRT (35) *FIT(35) » 

3 FPRT(35) »FHIT(35) »XfcTR(10) »X8TI(10) fX7TH(10) »X7TI(10)»X6TR{10)» 

4 KR(5) fKRE(b) »K I (5 ) » K IN. ( 5) rPHSVE ( 5 ) » tFOLC (5) »FACT 
4000 REAC(5»106) W»LEN»7YNE»FAC 

IF (LEN.EQ.9 ^ ) GC TC 300 
R£AL(5»20l) FACT 
201 FCRNAT(Ce.l) 

CC 420 l=lr 14 
REAE(5»129) Ad) 

129 FCRNAT(C16.3) 

420 CCMINOE 

URIT£(6»105) V,rFAC»LE:N»TYNE 
CO 20 1=1,7 

WRnE(6,llZ) A(2*I-1) »A(2*I) 

113 F0RNAT(2Ei; .5) 

20 CONTINUE 

CO 197 1=1,14 
A(I)=FACT*A(I) 

197 CONTINUE 

lnRITE(6,l6t ) FACT 

166 FCRNAT('0»,f .ACwUSTeO COEFFICIENTS FACTCR= ’ »D8. 1 ) 

CC 67 1=1,7 

lvRI7E(6,l67 ) A(2*I-D ,A(2*I) 

167 FCRNAT(2£i: ,5) 

67 CONTINUE 

K=6 

2 REAL(b,10i;. 8KE,eiN 

IF (eRE.EG,< 999g.D0.A\D,BlN.EQ,99999.u0) GO TO 300 
WRITE (6,10‘ ) 8HE, eiN 
N = 1 

IF(K.EG.e) ec TC 950 
IF(K.EG.7) 60 TC 951 
IF(K.EG.6) 60 TC 952 
IF(K.EG.S) 60 TC 953 
IF(K.EG.4) GC TC 954 
IF(K.EG.3) 6C TC 955 
1F(K.EG.2) 6C TC 956 

950 CALL El6hTh(BF<E»BIN, A,FRT,FIT,FPRT»FPIT,N,L) 

GC TO 960 

951 CALL SEVEN(BRE,eiN,A»FRT»FIT,FPRT,FpiT»N,L) 

GC TO 960 

952 CALL SIXTP(BKE,E!IN,7 *FRT»F1T ,FPRT,FPIT,N,L) 

GO TO 960 

953 CALL FIFTh(bPE,EIN,7 »FRTfFIT,FPRT,FPlT»N,L) 

GC TO 960 

954 CALL FOURTr(E;R£,BI|v, A,FRT,FlT,FPRT»FPIT,iv ,L) 

GC TO 960 

955 CALL ThlRC(bRE,EIN,A»FRT»FlT,FPRT,FPlT»N,L) 

GC TO 960 

956 CALL SECCNC;U<RE,bIiV? A^FRT,FIT»FFRT»FFIT^^ ,L) 

960 FRE= 0.0 

FIN= O.C 
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CC 15 I=1»K 
FKE = FRE+FRT(I) 

FIF = FI^<+FIT(I) 

15 CONTINUE 
FPRE= 0.0 
FFIN= 0.0 
CC 16 l=lfL 

FFRE = FPRE+FFRT(I) 

FFIN = FPIK+FPITd) 

16 CONTINUE 

NUPHE = (FRE*FPRE) + (FIR*FPIK) 

NURiy = (FIK*FPRE) - (FRE*FPIK) 

if(nurre.eq.o.co.anc.numik.eq.o.co) 60 to 4 

1F(FPRE.EG.O.CO.OR.FPI^'.EQ.O.DO) DERs (FPRE**2) + (FP1M**2) 

if(Fpre.eg.u.co.or.fpik.eq.o.do) go TO 6 
CEP = (FPR£**2)*(l.tO+{FPIK/FPRE)**2) 

6 IF(FPRE.EG.O.CO.AN'D.FPIKI.EG.O.OO) MR1TE(6»102> 
IF(FPRE.EG.O.CO.ANC.FPIM.EG.O.OO) go TO 2 
FRE = NUf/RE/DE^ 

FIR = NtKIR/DER 
ERE = ERE-FRE 
EIR = BIR-FIR 
N .= N41 

IF(N.GT.300) GO TO 4 
IF (K.EQ.er GO TO 950 
IF(K.EG.7) 60 TO 951 
IF(K.EQ.6) go to 952 
IF(K.EG.5) GO TO 952 
IFlK.EG.4) GO TO 954 
IF(K.EG.3) GO TO 955 
IF(K.EG.2) GO TO 95t 
4 ERRCRE = 0.0 
ERRCIR = 0.0 
CO 17 I=lfy 

ERRCRE = EtiRCRE+FRTd) 

ERRCIR = ERRCiy + FITd) 

17 CONTINUE 

200 WRITE(6»103) ERE » E IN » ERRORE .ERROIR »N 

CALL XPCCFX d »2»0Rtf BlRrKR»KI) 

CO 90 1 = 1.2 

KREd) = KR(I)*(10.4*(-LEN) )/FAC 
KIRd) = KI(I)*(10.»*(-LEN) )/FAC 
FhSVEd) = Iv/KREd) 

EFCLDd) = l.O/KiRd) 
rtRITE(6.110) KRd)»Kld) 

’rtRITE(6.112> KRE ( I) .KIRd) r PHSVE (1 ) . EFOLC ( I ) 

90 CONTINUE 
K = K-1 

IF(K.EQ.l) 60 TO 957 
IFtK.EQ.O) 60 TO 40o0 
CALL SYNDV(A.ERE.EIN.K) 

Ko=K+2 

CC 7000 1=1. Kw 
*RITE16.115) A(2*l-i> .A(2*I) 

70C0 CONTINUE 
60 TO 2 

957 Ad) = A(l) 
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A(2) = A(2) 

AO) = AO) * (BRE*A(1)-BIK*A(2)) 

A(i<) = A(4) + {BIV*A(1)+ERE*A<2) ) 

BKE =-(A(1)*A(3)-^A(2)*A(4))/(A(1)*>»2-KA(2)**2) 

BIK (A(2)*A(3)-A(D*A(4) )/(A(l)**2i-A(2)**2) 

ERRCRE=0.0 

EHRCIN=0.0 

N=1 

GC TO 2G0 

100 FORNATtElS.e) 

101 FORMAT (2D15, 7) 

102 FCRKATC ***** DERIVATIVE OF F(X)=0 •) 

103 FCR6'AT{*0*»» ROOT = *>2014. 6»» ERROR = »»2D14.6» 

3 • NUVBER OF ITERATIONS PERFORMED = *»I3) 

104 FCRMAT('-*»» INITIAL ESTIMATE = •»2D14.6) 

105 FORMAT (*1»» ♦ROOTS OF THE DISPERSION RELATION BY A NEWTON-RAPHSON 

1 ITERATION TEIChMGUE WITH SYNTH DIVISION»/tOt » ♦ APPLIED FREQUENCY 
C=»»C12.6» 

2 • LENGTH DIMENSION =* »F3.1» ♦*10*** » I2» * METERS'f 

1 • time dimension = 10**-»»I2»» SECONDS'/r 

1 ’O'#* DISPERSION RELATION COEFFICIENTS ♦) 

106 F0RMAT(015.7»2I2»F3.1) 

110 FCRMAT(*0*»* K= * t 2D14.6) 

112 FCRMAT(*0*»» WAVE NUMF3ER = ♦»2D14.6»* 1/METERS ♦/♦0»» 

1 'PHASE velocity = ♦»D14.6»» E FOLDING DISTANCE = •» 

1 D14.6) 

115 FCRMAT(2El3.fc) 

300 STOP 
END 

SLEROUTINE ATWLTF(N»X) 

C USED TO arrange TERMS OF EQUATION IN ASCENDING ORDER. 

DOUBLE PRECISION X(50)>TEMP 
CO 20 1=1. N 
IPl = I+l 
CC 20 J=IP1.N 

IF(CABS(X(I)).LE.DAfcS(X(J))) GO TO 20 
TEMP = X(I) 

X(I) = X(J) 

X(w) = TEMP 
20 CONTINUE 
RETURN 
END 

SUBROUTINE XPCCPX(M.N» A.E.XR.XM) 

C this subroutine CALCULATES THE M/ATH ROOTS OF A COMPLEX 

C NUMBER OF THE FORM 'C = A + I*B». 

DOUBLE PRECISION Ar B» BAR. BETA. COEF. K. PI. RM. RN. 

1 XR(25). ALFA. T. XM(25) 

CCLuLE PRECISION AA.BB 
AA=OAbS(A) 

EB=CABS(B) 

RM = M 
RN = N 

FI = 3.14159265358S79324C0 

IF(AA.EQ.O.DO.CR.BB.EG'O.CO) BAR=CSGRT(A«*2-l-e**2) 
IF(AA.EG.O.CC.OR.BB.EG.O.CO) 60 TO lUl 



EAH=DABS<A)*i:SGR7(l.D( +U>/A)**2) 

IF- (B.LE.l.C- 32) 6C TO 101 

IF(0AbS(DLCG10(AA)>LLC Gin(BB) )*LE.4«i:0)BARsDSQRT(A**2'F 
1 13 ** 2 ) 

101 CCEF = BAR** IRF//RN) 

T = DATAN2(UfA) 

IF (B .LT. U«OCO) T = 2.000*PI - CABS(T) 

K - O.OCO 

CC 100 I=1»N 

BETA = T 4 K>2.0DO*J'I 

ALFA=BETA*R^- 'RN 

XR(1) = CCEF s-CCCSCALF/ ) 

XF»(I) = CCEF+DSIN(AlFA) 

100 K = K ♦ l.OL'3 
RETURN 
ENL 


StERCUTINE STNC\/(Aft;RE *BIR»K) 

CCLELE PRECI'ilCN A (20) »BHE»BIK 
w = 2*(K+1)+; 

CO 100 I=3»w-2 
A(l) = A(l) 

A(2) = A(2) 

A(I) = Ad) 4 (eRE*An-2)-BIP*A(I-pl) ) 

AlI + 1) = A(lH) + (tIF *Ad-2)+BRE*A(I-l) ) 
100 CONTINUE 
RETURN 
ENC 


SUBROUTINE SKCCND (ERE » B ir^ » A »FRT »F IT *FPRT »FPIT »M»L ) 

COUBLE PRECI'ilCN BRt»E IN f A (20 ) »FRT (20 ) »F IT (20 ) rFPRT ( 20 ) »FPIT ( 20 ) 
FRT(l) = A(1 *(BRE**23-A(1)*(8IR**2) 

FRT(2) = -A( - )*2.0*l;RE *Biy 
FRT(3) = A(3 *ERE 
FRT(4) = -A( O+BIR 
FRT(53 = A(5' 

FIT(l) = Ad *2.0*t3RE«BIf-- 

FIT(2) = A(2 * (BRE**2: -A',2>*(BIF**2) 

FIT (3) = A(3'*tIR 
F1T(4) = A(4 ■*t-RE 
FIT(5) = A(6- 
FPRT(l) = 2.)*A(l)*fcRt 
FFRT(2) s -2 =0*A(2)*B1 v. 

FPHT(3) = A(.S) 

FPn (1) = 2, 0*/! d)*bIF 
FPn (2) = 2 .')*A (2)*bRE 
FF1T(3) = A(‘.) 

CALL AThLTF (:)*FRT) 

CALL ATfeLTF( j»FIT) 

R = 5 
L = 3 
RETURN 
ENL 


SLL-HCLTINE I'lIRC (ERt't IF>A»FRT»FIT»FFRT»FPIT»K»U) . 

CCLbLE FRECIIdCN L-Rt »E IF » A (20 ) rFRT (20 ) »F IT (20 ) »FFRT (20) »FPIT (20) 
FHTd) = Ad;*lBRE**3;-A(l)*(BIF**2)*BRE 
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-A(2)*3.0*BIK*^BR£**2) + A(2)*(BIH**3) 

A{3)*(BRE**2) - A<3)*(BIK**2) 

-A(4)*2.0*BRE*MM 

A{5>*HRE 

-A(6)+G^^ 

A(7) 

A(l)*3.n*blM*(BRE**2) - A ( 1 ) ♦ (BIH>**3 ) 
A(2)>MBF?E**3> •' A(2)*3.0*BRE*(B1M**2> 
A(i)*2.0♦BRE*B;^' 

A(4)*IBIE**2) • A(4)*{BIN**2> 

A(5J>^3If' 

A(6)* iRE 
A (e> 

: 3.0MT (A<l)*(BRt )-A ( 1 ) ♦ (BIM**2 ) ) 

: -6-C+A ;2)*BRE^ BI^ 

: 2.0>t'A(;f ) *ERE 
-2 oO t A 4 ) ♦BIN 
A(5J 

6.0- A(- )*BRE*rIK 

3.0=: (A :2)*(BR(:**2)-A(2)*(BIKi**2) ) 

2.0« A(o)*bI(^ 

2.0* A(‘. }*bRE 
A (6} 


CALL ATuLTF (7»FRT) 
CALL ATV»LTF(7»:^I , ) 
CALL ATl«LTF(5»-P T) 
CALL ATWLTF (5.FF ,T) 
R = 7 
L = 5 
RETLRN 
ENC 



SUBROUTINE FOL RT- ( BRE » B :V . A »FRT » FIT »FPRT » FRIT * V r L ) 

CCUEL& precision ERE*BIr/,» A (20) »FRT (20) » F IT ( 20 ) » FPRT ( 20 ) »FPIT (20 ) 
FRT(I) = A(l)' (E <E**4) 

FRT(2) .= A(l)= (B i>**4) 

FRT(3)i = -6.0*A(U♦(BRE*♦2)*(BI^**2) 

FRT(4) = A(2)=< 4.0=t=t:RE*(dIR**3) 

FRT(5) = -4.0=; A(2)*EI^*(BR£**3) 

FRT(6) = A(3)* (Bi^E**3) 

FRT(7) = -3.0* A(2)=>ERE*(BIt^.**2) 

FHT(a) = A(4)* (Bt^**3) 

FRT(9) = -3.0«'A( i)*bI^*(BRE**2) 

FRT(IO) = A(S; *(3R£=»*2) - A ( 5 ) * (BIW**2) 

FRT(U) = -2.(-*A(6)«BRE*BI^ 

FRT(12) = A(7I*e <E 

FRT(13) = -A(n* 

FRT(14) = A(9; 

FIT(l) = 4.0*/ (1)♦E1^'♦(QRE*»3) 

FIT(2) = -4.0=*A(l)*bRE*(8IW**3) 

FIT(3) - A(2>^ (BkE**4) 

FIT(4) = A(2)* (eI^♦*4) 

FIT(5) = -6.0*A(2)*(BRE»*2>*(BIR.**2) 

FIT(6) = 3.0*/ (3)*BIR*(oRE**2) 

FIT(7) = -A(3 i*(Hiy**3) 

FIT(8) = A(^)=: (Br<E**3) 

F1T(9) = -3.0='A(4)*c;RE*(BI«**2) 
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FIT(IO) = 2.0*A(5)*BRE*aiy 

FlT(ll) = A(6)*(BRE**2) - A(6)*(BIM**2) 

FIT(12) = A(7)*BI^ 

F17U3) = A(8)*E«E 
FIT(14) = A(10) 

FPRT(l) = 4.0*A(1)*(BRE**3) 

FPR7(2) = -l2.0*AU)*BRE*(Biy**2) 
FPRT(3) = 4.0+A(2)*(Biy**3) 

FPR7(4) = -l 2 . 0 *A( 2 )*eiM*(BRE** 2 ) 
FPRT(5) = 3.0*A(3)*(BRE**2) 

FPR716) = -3.0*A(3)*(BIM**2) 

FPR7(7) = -6.0*A(4)*BRE*Biy 
FPRT(8) = 2.0*At5)*BRE 
FPRT(9) = -2.0*A(6)*BIN 
FPRT(IO) = A(7) 

FPIT(l) = -4.0»A(1)*(BIM**3) 

FPI7(2) = 12.0*A(1)*BIR*(BRE**2) 

FP17(3) = 4.0*A(2)*(BRE**3) 

FPI7(4) = -12.0*A(2)*BRE*(Biy**2) 
FPI7(5) = fc.0*A<3)*BRE’»Biy 
FPIT(7» = -3*Q*A(4)*(BIW**2) 

FPIT(8) = 2.0*A(5)*BIR 
FPlT(g) = 2.0*A<6)*ERE 
FFIT(IO) = A(8) 

CALL A7HL7F(14»FR7) 

CALL A7WL7F(14»FI7) 

CALL A7WL7F (10.FPR7) 

CALL A7WLTF(10tFPlT) 
y = 14 
L = 10 
RE7LRN 


SUER0L7INE F IF7h (BRE » B ly » A »FR7 »F 17 *FPR7 »FPI7 »L) 

CCLbLE PRECISION ERE * B IK. • A (20 ) * FR7 <20 ) * F 17 (20 ) tFPR7 (20) »FPI7<20) 
FRT(l) = A(1)*(BRE**5) 

FH7(2) = A(1)*5.0*ERE* (BIW**4) 

FRT(3) = -lo«0*A(l)*(BR£**3)*(Biy**2) 

FRT(4) = -A(i:)*(Eiy**5) 

FR7(5) = -A(2)+5.0*Eiy*(BRE**4) 

FR7(6> = 10.0*A(2)*(BRE**3)*(Biy*»2) 

FRT(7) = A(3i*(eRE*>*4) 

FR7(8) = A(3)*(Biy**4) 

FRT(9) = - 6 . 0 +A( 3 )*(BR£** 2 )*(Bly** 2 ) 

FHT(IO) = 4.0*A(4)*bRE*(Diy**3) 

FRT(ll) = -4.0*A(4)*BIV*(BRE**3) 

FRT(12) = A (S) ♦ (ER£**3 ) 

FRT(13) = - 3 » 0 *A( 5 )*ERE*(Biy** 2 ) 

FRT(14) = A(i')>*(Eiy**2) 

FR7(15) = -3 -0*A(6)*t;iy*lBRE-»*2) 

FR7(16) = A(?)=t (t>R£**i ) - A(7)*(aiM**2) 

FH7(17) = -2 .0 + A (e)*EFE*Biy 
FRT(18) = A(9)*ERE 
FR7(19) = -A(lO)*Bly 
FRK20) = A(ll) 

F17(1) = A(1)*(B1V**55 
F17(2) = A(l)*S.0*ciy»(eRE**4) 
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F1T(3) s -iO>0*A(l)*(BRE**2)*(BlM**3) 
FIT(«) s A(2)*(BRE**5) 

FZT(5) = S.0*A(2)*BFE*(BIR**4) 

FIT(6) = •10<0*A(2)*(BRE**3)*(BIM**2) 
FIT(7) = 4.0*A(3)*B1M*(BRE**3) 

FIT(8) = -4.0*A(3)*eRE*(BIK**3) 

F1T(9> = A(4)*(BRE**4) 

FIT(IO) = A(4)*(BIK*«4) 

Fimi) = ■“A(4)*(BRE**2)*(B1M**2> 
FIT(12) = -A(5)*(BIF**3) 

FIT(13) = 2.0*A(5)*blW*<BRE**2) 

FIT(X4) = A(6):*(BRE**3) 

FIT(15) = -3»0*A(6)*aRE*(BIK**2) 
FZT(16» = 2,0*,A(7)*tiRE*BlM 
FI7(17) = A(8)*( (BRE**2)-(filM**2) ) 
FIT(ia) = A{9)*BIN 
FIT (19) = A(10)*BR£ 

FIT(20) = A(12) 

FPRT(l) = t,0*A(l)*(BRE**4) 

FPR7(2) = £.0*A(1)*(UIP**4) 

FPRT(3) = -30.0*A(1)*(BRE**2)*(BIM**2) 
FPRT(4) = 20.0*A(2)*BRE*(BXP.**3) 
FPRT(5) = -20.0*A(2)*BIM*(BRE**3) 
FPR7(6) = 4.0*A(3)*(aRE**3) 

FPR7(7) = -12.0*A(3)’‘BRE*(BIM*>*2) 
FPR7(8) = t ,0*A(4)* (BIP**3) 

FPR7C9) = -12. 0*A(4)*BI^*(BRE**2) 
FPRTCIO) = 3.0*A(5)»CBRE**2) 

FPRT(il) = -3.0*A{5)^=(Biy**2) 

FPRT(12) 5 -6.0*A(c) *ERE*BIP 
FPRT(13) = 2.0*A(7)*HRE 
FPR7(14) = - 2 . 0 *A( 8 )*eiW 
FPRTdS) = A(9) 

FPI7(1) = 20«0>»A(l)*f3IP*(BRE**3) 
FPIT(2) = -20.0*A(1)+8RE*(BIK**3) 
FFI7(3) = E.0*A(2)*(f3RE**4) 

FFI7(4) = i;.0*A<2)*U'!lP**4) 

FFI7(5) = -30.0*A(2).MBRE**2)*(BIP**2) 
FPITC6) = -4«0*A(3)>»''BIM**3) 

FPIT(7) = 12.0*A(3)*13IN*(BRE**2) 
FPIT(8) = 4.0*A(4)*(URE**3) 

FP1T(9) = -12.0*A(4)=‘BRE»(BIM**2) 
FPITdO) = 6.0*A(5)*i:RE*BIK 
FPITdl) = 3»0*A(6)* BRE**2) 

FPI7d2) = -3.0*A(6)’^ (BIV**2) 

FPI7d3) = 2.0*A(7)*IIP 
FPITd4) = 2»0*A(B)*IRE 
FPITd5) = Ado) 

CALL AT»iLTF(20fFRT) 

CALL ATWLTF(2U»FIT) 

CALL ATWLTFdbrFPRT) 

CALL ATuLTF (IBfFPIT) 

P = 20 
L = 15 
RtTLRK 
ENC 
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SUBROUTINE SIXTH(BRE»BIM»A#FRT»FIT»FPRT»FPIT»M»L) 

COUfcUE PRECISION BRE»BIM»A(20) »FRT(30) »FIT(30> »FPRT(30) »FPITOO) 
FRTU) = A(1)»(BRE**6) 

FRT(2) = -A(l)*(aiP**6) 

FRT(3) = 15.0*A(1)*(BRE**2)*(BIM**4) 

FRTU) s -15»0*A{1)*(BRE**H)*(BIM**2) 

F“’t5) = -6.0*A(2)*BRE*(BIM**5) 

FRT(6) = -6.0*A(2)*BIP*(BRE**5) 

FRTt?) = 20.0><-A(2)*(BRE**3)*(BIP#*3) 

FRT(8) = A(3)’»(ERE**5) 

FRT19) = S.O*^ (3)*BRE*(BIV**4) 

FRT(IO) = -10.0*A(3)* tB(^£*+3)*(Blv**2) 

FRT(ll) = 

FRT(12) = -b.C*A(4)*BIP*(BRE**4) 

FRT(13) = 10»r»A(*4)*(BR;:**2)*(BlM**3) 

FRT114) = A(55*(QRE**4) 

FRTU5) = A(5^ ♦tBIR**4) 

FRTC16) = -6.C*A(5)*(BR':**2)*(BIM**2) 

FRTU7) = 4.0>!A(6)*eRE*lBlW**3) 

FRT(16) = -h.C*A(6)*BIM>(BRE**3) 

FRT(19) = A(7)*(bHE**3) 

FRT(20) = -3*C*A (7)*BRE i‘(BIP**2) 

FRT(21) = A(8.'*<r3IN**3) 

FRTC22) = -3*( +A (8)*Biy«<BRE**2) 

FRT(23> = A(9?*( (ERE**2)-(BIM*#2) )-2.0*A(I0)*BRE*BIW 
FRT(24) = (A(11)+BRE) “ (Aa2)#8lV) 

FRT(25) = A(13) 

FITU) = 6.0*A<l)*BRE*<i3I^**5) 

FIT(2) = (1)*BII^*IBRE**5) 

FIT(3) = -20*C*Aa)*(BR£**3)*(BIW**3) 

FIT14) = AC2)=t (eRE**6) 

FIU5) = -A(2)*(fjlt^**6) 

FIT(6) = 15.0*AC2)*CBRE+*2)*(BIR**4) 

FIT<7) = -15»( *A(2)*(8R;i**4)*(BIM**2) 

FlTia) = A( 3 )* (El^**5) 

FIT19) = 5.0*A (3)*BIR*(3RE+*4) 

FITdO) = -10.0*AC3)*(B‘<E* + 2)*(BI^**3) 

FITUl) = A(4)*(HRE**5) 

FITU2) = 5.0xA(4)*BRE*(BIV**4) 

FIT(13) = -lO.O*A(i*)*{E <E»*3)*(BIf/**2) 

FIT(14) = 4.0*A(5)*Eiy* (BRE**3) 

FITU5) = -4.C*A(5)*BREt>(BIK**3) 

FIT<I6) = A(6)*(BR£»*4) 

FITU7) = A<6)*(BIIW**4) 

F1TU8) = -6.0*A (6)* (BRE**2)*(BIK**2) 

F1T(I9) = -A(7J♦(8I^*♦3) 

FITC20) = 3.0»A {BRE**2) 

FIT(21) = A(e)*('3RE**3) 

FIT122) = - 3 »C*A( 8 )*BREt‘(eiN** 2 ) 

FIT123) = (2*C'*A (9)»BRE*BIV) + A { 10) ♦ ( (BRE**2>- IB1M**2> ) 

FIT124) = (Adl)*EIN) + (A(12)*BRE) 

F1T(25) = A(14) 

FPRKl) = 6.0 x-A(1)4(BRE**5) 

FPRH2) = 30*t’*Aa)»BRE*lElP**4) 

FFRT(3) = -60.0*A(1)*(BRE**3)*(BIP**2) 

FFRK4) = -fa.C*AC2)*lBI 1**5) 

FFRT(5) = -30.0*A(2)*BI M»(3RE**4) 
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FPRT(6) = 60»0«A(2>*(BRE**2)*(BIK**3) 

FPR717) = 5.0*/\(3)*(BRE**4J 
FPRT(8) = 5.0>»A(3)*(BIM**4) 

FPRTC9) = -30. ]*A(3)»(BR£*1'2)*(BIF+*2) 

FPRiriO) = 20.;1*A(4)*BRE*(BIW**3) 

FPRTtll) = -20 >0>^A(4)*Biy*(BRE**3) 

FPRK12) = 4.0sA(5)*(BR£**;;) 

FPRT{13> = -12.0=: A{5)*BI:E*(BIM**2) 

FPR7(14) = 4 « 0 ^A( 6 )*(Bir>+*,J) 

FPRT(15.' = -12.0=rA(6)-B:iV*(BRE**2) 

FPR7(16> = 3«0 ?A(7)*(BR£**2) 

FPR7U7) = -3.0*A(7)*(B. W* =2) 

FPR7(lfl) = -6.0*A{8)*BRf 

FPR7(19) = 2»0=>(A(9)*BRF-A(10)*BIR) 

FPR7(20) = Adi) 

FPI7<1) = 6.0>Ud )*(BIM=' *5) 

FPI7(2) = 30o0*A^l)*BI^'= (BRE**4) 

FPI7(3) = -60.0*A(1)*(B' E**2)*(BIP**3) 

FPI7(4) = 6.0*A(r:)*lBRE> *5) 

FPI7(5) = 30«0tA(2)*BRE- (BIR**4) 

FPI7(6) = -60.0*A(2)*(Bf;E*>.-3)*(Eiy**2) 

FPI7(7) = 20*C«AC3)*BIR'-? (6KE**3) 

FP17{8) = -20,0*A(3)*BR[:*(BIM**3) 

FPI7(9) = 5.0*A(h)*(BRE= *4) 

FPI7(10) = 5*C<=At4)=»(BIi**4) 

FPIKll) = -3D.0=i A(4)*(KRE**2)*(BIK**2) 

FPIT(12) = -4,0* .{5)*(E :^»+-3) 

FP 17(13) = l2.0*A(5)*BIr*(;3RE**2) 

FPI7(14> = 4*C*A 16)*(BR:.** 3) 

FPI7(153 = -1£ .0= A(6)*E ;E*<BIR**2) 

FPI7(16) = 6.C*A\7)*eRE Biv 

FPI7(17) = 3-( *A (6)*( (E E*«2)-(BIV**2) ) 

FPITde) = 2 •C♦A' 9 )*BI^ 

FPI7 (19) s 2*C ♦AdO)*ER 
FPI7 (20) = Ad2) 

CALL A7WLTF(2J fFRT) 

CALL AT!,xL7F(2i »F r.T) 

CALL AT'.'jLTF( 2C rF ’RT) 

CALL ATWLTF(2f »F -IT) 

y = 25 

L = 20 

RE7LRN 

ENC 

SLEFOUTINE SE\EN(ERE»BIv;»A»FR7»FI7»FPRT»FPIT»F»L) 

DOLLLE PRECISION BRt»EI A (20) »FR7 (3b ) »F IT (35 ) »FPR7 ( 30 ) r FPIT (30 ) 
FRTd) = A(l)> (BRE**7) 

FRTS2) = -7.0= A(l)*ER£*(Biy**6) 

FRT(3) = -21.1 ♦A(l)*{EFi**5)*(Biy**2) 

FRT(4) = 35.0= A(1)*(ERE**3)*(BIF**4) 

FRT'5) = A(2)= (EIF**7) 

FRT<6) = -7,0 = = A(2)*bIF* (BRE**6) 

FRT17) = -2I.i,'*A(2)*(ERE*>;'2)*(BIF.**5) 

FRTia) = 35.0 A(2)*(ERE**ii)*(BIN,**3) 

FRT!9) = A(3) (BRE**6) 

FRTdO) = -A( )*(BlR**e) 

FRTdl) = 15* =*A (3)*(BF£*:>=2)*(BIV**4) 
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FRT(12) s -15.0*A(?)*(BRE*«<J)*(BIW**2) 
FRV(13) = -c :.0«A(i4,'*Q>';E*(DIf'=i‘*5) 
FRidtj) = ;:0t04A(< )=--(GRE*- 

rr;T(15) = «C.0-->A(<}:>:'B‘I/-(Br!:rv^5) 
rnTii6) = A'5):>(BRi-#=; ,) 

FfiTU?) = 5 0^A(5)= ar. 

Fn7(j,0) = 0.0*A(‘- )=:--:eriE#=>:n‘:-(BIM**2) 

Ff TUg) r. -,',(6)*(B?r/- ; 5) 

Fni(20) = -aeO^A(6 : «B.i 

Ff!Y(2\) = K oO>:^A(6 

r^: ; ' ( 22 ) a 7 ) ^ ( br i- ; ) 

Fi. ; (2J) - A . ) 

rr,T(2‘0 = -t.0<:A(7 -^(; RE=:==?2>*(BIM**2) 
FKT(25) =: 4oO>c=A(8): BRi.*(BIM<=*3) 
rn7(2S) r -i; oO*A (8 . *BiN,*(6R£-*3) 
FRT(27) = A(9)*(BR-^>!'o) 

FR7(2a) = -5«C*A(9 <^e:';E* 

FRT(29) = A ' 10 )* (a 

FRT(30) = -3»C*A(1' ) *B IM* (ERE**2 ) 
FRT(31) -■ A{11)*( RE'i*2)-(6TM*t2)) 

FRT«32) = -2.0*A(l; )*cK£*BIf-: 

FRT(33) = (A(l 3 )*ei £) - (A114)*BIR) 
FRT(34) = A(15) 

FIT(l) =■ -A(1)*(BII’ **7) 

FIT(2) = 7.0*A(l)*h I^'*(BRE**6) 

FIT(3) = -35»0*A(1. t.rf.RE**4)^"(BIM**3) 
FI7(4) = 21.0*A(1)-- (eR£**2'-; 

FIT(5) = A(2)*(BRE 

FIT(6) = -21.C*A(2;*(ERE**5)*(BIM**2) 
FIT(7) = 35.0*A(2)^ {£R£>t=*2)*{EII*'-i v4) 
Fl7(a) - -7.0*A(2)=.ER7*iElr->:*&) 

FI7(9) = 6.0*A13)*LRE;'(EI|V,**S) 

FIT(IO) = -20.C*A(. )*iBRE**i)*(EI^**3) 
FIT(il) = 6.0*A(3) aI/^'*(ERE-i5) 

FIT(12) = A(4)<^(faRi; **c) 

FITU3) = -A (4)* (BiN**6) 

F1T(14) = -15.0*A(‘ )* (BRE**4)*(B1n** 2) 
FIT(15) = 15.0*A(4)*(BRE**2)*(BIM**4) 
FIT(16) = A(5)*(BIi' **5) 

FI7(17) = 5.0*A(5)'BIN'*(BRE**4) 

FiTUa) = -l0.0*A(E)*(BRE**2>*lBI^*♦3) 

FI7tl9) = A(6)*(BRE.**5) 

FIU20) = 5.0*A(6)*ERE*(BI^**4) 

FI7(21) = -10.0*A(b)=: iBRE**2)*(BlN**2) 
FIT(22) = -4.C*A(7;*6SE*(B.ri'-'**3) 
FIT(23> = 4cO*A(7)-:-Br.*(BR£-*3) 

FIT(24) = AE8)«(BRi **s.- 
FIT(2£) = A(8)*(Bir 

FIT(26) = -fc»0*A(6. *(eRE*:t2)*(BIM**2) 
F1T127) = -A(9)*(E>’!‘;3) 

FIT(28) = 3.0*A(9) blr*(BRE«*2) 

FIT(29) = A(10)*(BRE*:-3) 

FIT(30) = -3*0*A(ir )*BRE*(8IK**2) 
F1T(31) = 2 . 0 *A(ll.*BRE*aiN 
riT(32) = A(12)*( (BRE**2)-(BIM**2) ) 
FIT(33) = (aC 13)'^-B>) + (All4)*ERE) 
;iT(34) = A(16) 
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FPRKl) = 7.0*A(1)*(BRE**6) 

FFRT(2) = -7.0*A(1)*(B1M**6) 

FFR7(3) = -105.0*A(D*<BRE**4)*(BIM**2) 
FFRT(4) = 105.0*A(1)*(BRE**2)*{EIF**4) 
FFRT(5) = -42.0*A(2)*BIK*(dRE**5) 

FFRT(6) = 140.0*A(2)*(BRE**3)*(BIK**2) 
FFRT(7) = -42.0*A(2)*BRE*(BIM**5) 

FPRT(8) = 6.0*A(3)*(BRE**5) 

FPR7(9) = -60.0*A(3)*(RRE♦*3)*(BI^♦*2) 
FPRT(IO) = 3C.0*A(3)*BHE*(bIM**4) 
FPRT(ll) = -6.0*A(4)*(BIM**5) 

FFR7(12) = -30.0*A(4)*Biy*(BRE**4) 
FFRTC13) = 6C.0*A(4)*(BRE**2)*(BIK**3) 
FFR7(14) = 5.0*A(5)*(BRE**4) 

FPRT(15) = 5»0*A(5)*(BIM**4) 

FPRT(16) = -30.0*A(S)*(BRE**2)*(BIM**2) 
FPRltl?) = -20.0*A(fc)*HI^*(BRE**3) 
FPRT(18) = 20.0*A(6)*BRE*(BIM**3) 
FPRiag) = 4.0*A(7)*(BRE**3) 

FPRT(20) = -12.0*A(7)*BRE*(BIM**2) 
FPRT(21) = 4"0*A(8)*<BIM*»3) 

FPRT(22) = -'12.0*A(fc)*aI^*(BRE**2) 
FPRT(23) = 3'0*A(9)*((BRE**2)-(Biy**2)) 
FPRT(24) = -f ,O*A(1O)*0RE*BIM 
FPRT(25) = 2<'0*( (A(11)*BRE)-(A(12)*BIM) ) 
FPRT(26) = A 13) 

FPIT(l) = 42 0*A(1)*BRS*(BIF**5) 

FPIT(2) = -1‘ 0.0*A(1)*(BRE**3)*(QIM**3) 
FPIT(3) = 42 0*A(1)*BI-'*(BRE**5) 

FPIT(4) = 7.! ♦A(2)*(BR'£**6) 

FFIT(5) = -7 0*A(2)*(EIM**6) 

FPIT(6) = -in5.0*A{2)*{BRE**4)*(BIM**2) 
FPIT(7) = 10L.0*A(2)*t3RE**2)*(BIR**4) 
FPIT(8) = 6.'‘>*A(3)*(BI''<*«5) 

FPIT(9) = 30 0*A(3)*BIV,*(BRE**4) 

FPIT(IO) = -:,0.0*A(3)*(BRE**2)*(BIM**3) 
FPIT(ll) = b.0*A(4)*(ERE**5) 

FPIT(12) = -tO.O*A( 4)* (BRE**3)*(BIM**2) 
FPIT(13) = 3 ).C*A(4)*ERE*(BIM**4) 
FPIT(14) = 20.C*A(5)*BIM*(BRE**3) 
FPITU5) = -20.0*A(5)«BRE*(BIM**3) 
FPn(16) = 5»0*A(6)*(ERE«*4) 

FPIT(17) = 5*0*A(6)*(EIM+*4) 

FPIT(18) = -50t0*A(6)’f IBRE**2)*(BIM**2) 
FPIT(19) = -4,0*A(7)*!BIf'i'**3) 

FPIT(20) = 12.0*A{7)*EIM*(8RE**2) 
FPIT(21) = 4-0>!'A(e)*(BRE**3) 

FPIT(22) = - 12 «Q*A (e)^BRE*(BIM**2) 
FPIT(23) = 6»0«A(9)*BRE*aiM 
FPI7(24) = 3.0*A(10)* f (BRE**2)-(BIM**2) ) 
FPI7(25) = (A(.U)*BIK -(A(12)*BRE) 
FPI7(26) = A(l4) 

CALL ATWLTF(34»FRT) 

CALL ATV«L7F(34^F1T) 

CALL ATWL7F(26fFPRT) 

CALL ATWL7F(26«FPIT) 

P = 34 



L : 26 
RETURN 
ENC 
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CHAPTER II 

NUMERICAL SOLUTION FOR PROPAGATION OF LONGITUDINAL 
WAVES ALONG THE APPLIED MAGNETIC FIELD IN A 
THREE-FLUID PARTIALLY IONIZED GAS 


by 


Thomas L, Dahl and David L. Murphree 


NOTE; 


figures . references and equations begin a new sequence in each Chapter. 
Also, -the Appendices are lettered consecutively by Chapter, and 
each Chapter includes its own list of symbols. 
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LIST OF SYMBOLS 

e Magnitude of Electric Charge 

c Velocity of Light in a Vacuum 

Y Specific Heat Ratio 

D/Dt Hydrodynamic Derivative 

VqIj Effective Collision Frequency of Type a with Type b Particles 

Vq Vab+''>ac» Total Collision Frequency 

E Electric Field Strength 

H Magnetic Field Strength 

V„ < _ Fluid Velocity of Electrons, Ions, or Neutral Particles 

^e,l,n Ntimber Density of Electrons, Ions, or Neutral Particles 

Pe,i,n Mass Density of Electrons, Ions, or Neutral Particles 
^e,l,n Partial Pressure of Electron, Ion, or Neutral Particles 
^e,l Electron or Ion Plasma Frequency 

tii Applied Frequency of the Wave 

oiX L Cyclotron Frequency of the Electrons, Associated with Either 

the Transverse or Longitudinal Components of H^ 

k Complex Wave Number 

k^ Real Part of the Wave Number 

ki Imaginary Part of the Wave Number 

n kc/u). Index of Refraction 

m mj^/mg. Mass Ratio of Ions to Electrons 

^e,i,n Acoustic Velocity of Electron, Ion, or Neutral Particle Species 

Uf [Y(Pi+I*e‘^^n)/(Pi+Pe+Pn)]^» Acoustic Velocity of the Entire Gas 

Up [YCPe"^^!)/ (Pe'^Pi)]^* Acoustic Velocity of the Electron-Ion Gas 

Mixture 


i 
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I. INTRODUCTION 

A three-fluid theory, using Maxwell's equations together with a set of 

coupled hydrodynamic equations for an Interacting mixture of electrons, Ions, : 

and neutral molecules, has been employed by Tanenbaum emd Mlntzer^ to examine 

small- amplitude oscillations In an Infinite, homogenous, partly Ionized gas 

with a uniform external magnetic field. Plots of phase velocity versus 

frequency were obtained for the case of negligible colllslonal damping for 

wave propagation along and normal to the applied magnetic field. A set of 

approximate solutions to the dispersion relation was employed to yield the 

phase velocities for various frequency bands. Employing the same physical 

2 

model, Tanenbaum and Meskan later presented the complete dispersion 
equation with no approximations for propagation of longitudinal waves along 
the magnetic field. 

This paper will present a numerical solution to the complete dispersion 

2 

relation derived. by Tanenbaum and Meskan governing the propagation of longi- 
tudinal waves along the magnetic field. Solutions have been determined for 
the complex wave number for a typical Ionospheric condition. Plots of the phase 

velocity and damping characteristics of the three resulting wave modes are 

-5 8 

presented for the frequency range 10 < u < 10 radians/second. Since the 

governing equations are linear, the Ipngltudlnal perturbation Is described 
by superimposing the three wave solutions determined from the solution of 
the dispersion relatlpn. 

II. THEORY 

A. Dispersion Relation 

The derivation of the dispersion relation which governs wave propagation 
of small longitudinal perturbations along a magnetic field In a partially 
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ionized gas composed of interacting electrons, ions, and neutral particles 
will be outlined. This derivation is presented in References 1 and 2. 
Assume that: 

(1) The degree of ionization is fixed 

(2) Each gas obeys the perfect gas law 

(3) Damping caused by the frictional forces of each gas allows for the 
conservation of total momentum of the system 

(4) No heat flow exists within the gases 

Therefore, the following set of equations describe the three-fluid mixture. 

(1) Maxwell's equations: 

VxE - - i M 
c 3t 

7xH - Aie (N. V.-N V ) + -i || 
c 1 1 e e c 3 t 


(2) The continuity equation for each gas: 

Pe,i,n “ “Pe,i^n ^ * Ve,i,n 


(3) The momentum equation for each gas: 

rv ■> = ^e^S\ _ VPe - (V -v,^ - \j (V -V 

'•’'e-' ei' e i'' en'^e ’'n-' 


Dt 


(Vi) 



''ie<Vl-Ve) 


''in(Vi-V„) 




- ZEiL - Vne(VVe) 

Pn 


- v„i(VVi) 


(4) The adiabatic condition for each gas: 


^e,i,n N e,l,n “ constant 


The coordinate system is aligned such that the applied magnetic field 
vector Hq * (Hox,®oy,®^* above plasma equations may be linearized by 

perturbing the quantities H, E, Ng^i^n and Pe,i,n with small, 

periodic oscillations of frequency to. For example. 



where Nq Is the undisturbed electron xienslty, n^ the amplitude of the 
perturbation, and Ng the resulting electron number density at any position 
X at any time t. The perturbation Is considered to propagate only In the 
x~dlrectlon, l.e., one-dlmenslonal propagation. The wave number, k(u). Is 
one ‘of the allowed set of wave numbers whose value, as a function of frequency, 
we wish to determine. The resulting twenty-one equations (with twenty-one 
unknowns) may be manipulated by substitution until all the variables, except 
Vg, are eliminated. The resulting expressions for Vg may be written most 
conveniently as 


where 


^11 ^12 ^13 


’Vex“ 

^21 ^22 ^23 


Vgy 

A31 A32 A33 


/ez_ 


^11 

Ai2 

Ai 3 

^22 

^23 

^31 

A33 


(Cj^/m) — (C3C3/C2^) + (to to ip/mC2) 
A 23 ^ “ -to^(OijiU)L/mC2 
l(0t0x[(C3/Ci) - (C6/mC2>] 

(C2/m) - (C4C6/C2) + to^to\/mC2 
-A32 - -(l<«)tOL/C2) [C4-(Cg/m)] 

I 

ltotoj[(C5/mCi) - (C4/C2)] 

2 2 

A^2 ^ ^ 


“ “^e~^“'’el “^(VenVnl/V2) 

C2 “ to^e(l-n^)“^ -ItoVgj^ + (Ven'^nl^Yl^ 
C3 ■ <i)^-(o^£-k%^£ + luv^ + w^('>in'’nl/Y2) 
C4 - (o^-to^jj^d-n^) ^ + Itov^ + 


( 1 ) 


and 
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% 

Cj* - a)2-o,2^-kVg + IwVg + 

Cg - w2-u,2^(l-n2)-l + 

where 

Yi - 0)2 + iuv^ , eH°T.L/>^eC 

Y2 - Yi - k2y2^ - (vPe.i.n/Pe.l.n)^ 

o)g^£ - n = kc/o) 

Therefore, the dispersion relation which governs the perturbation in the elec- 
tron velocity may be determined by expanding the matrix expression. Equation (1). 

Restricting attention to propagation of longitudinal waves along the mag- 
netic field, i.e., o)j ■ 0, we obtain 

Aj^lVgx * 0 

For Vgjj to exist 


'll 


which when written completely yields the dispersion relation governing the 
propagation of longitudinal waves along the applied magnetic field 


+ Ak^ + Bk2 + C = 0 


where 
A « 


_ f a)2-(i)2^ ^ o)2-(o2^ + 0)2 "I 

I n^e 

-io) f ^ei+^>en + vie+vin + Vni+^nel 

L Vh J 


B 


•0)2^2 ^ ^ ^ 

e ' ei nl ei ne en nl 




A F 

^ U2^u2p [“^~“^“^i"“^(''ie'>ni+'»neVin+^^neVie)] 

u zS ? [ ^'’el+'»en+^nl+'»ne> -“"^e <Vni+Vne>l 

6 II » J 

^ U21ij2^ [“^<'’in+'»ie+W'»ne>-““^e(''ni+''ne> 


(2) 
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C 


+ 


1 

U2iu2e 


(\)ei+Ven+Vin"*''^ie)“‘^“^e ('^nl'^^ne) 



-J> + o)^(a)2^ + + “^[(\'ei^ni + ^'ei^ne + ''en^ni> 

+ (vigVj^g + v^gVjj^i '^in^ne) (^ei^in "^en^in + Ven^ie)] 

+ i [-0)^ (vj+Ve+Vn) ^ (1 Pe/Pl Pn/Pi)] 

U^iU2eU2n 


Equation (2) is the relationship between the complex wave number, k, and 

the wave frequency, o), of the propagating wave. Solution of this dispersion 

relationship will determine the value of the longitudinal perturbations at 

any position x and any time t. Note that the dispersion relation is actually 

2 

a cubic equation in k , and will be solved algebraically using Cardanos 

3 

solution for cubics. This set of answers will then be exacted using the 
Newton-Raphson^ method of iteration. This dispersion relation does not hold 
for high frequencies, i.e., 0 )>>a)g. In this case, some of the waves described 
by the dispersion relation have wave lengths comparable to or less than the 
mean free paths of the heavy particles and the Debye length of the electrons. 

. 3 

B. Cardan s Solution of Cubics 

We seek solution to the dispersion relation. Equation (2), of the form ^ 

x^ + Ax^ + Bx + C = 0 

2 

where the coefficients are complex numbers previously defined and x = k . 

To remove the quadratic term, define the transforming equation 

X = y - A/3 (3) 

and obtain the reduced cubic equation, 

+ py + q = 0 

where 

p = (B - A^/3) 
q = (2 a3 - 9AB + 270/27 
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In order to solve the reduced cubic, transform again by letting 
and obtain 

+ qz^ - p^/27 » 0 , 

3 

which Is a quadratic In z with the roots 

z3 = [-q ± (q2 + 4p^/27)^]/2 (5) 

By choosing either the plus or the minus sign, equation (5) may be solved 
for three values of 2 . Then by combining (3) and (4), obtain 

X “ z - p/3z - A/3 , 

Into which the three values of z may be substituted In order to yield the 
three roots of the cubic. The Cardanos method Is strictly algebraic and 
presents the advantage of an ordered extraction of the roots. However, the 
computer operations produced enough error that the Newton-Raphson method Is 
required to exact the solution. 


C . Newton-Raphson Me thod ^ 

Using each of the roots found by Cardan's method as an approximation, 
substitute into the iterative process 


^+1 ^ ^ - 


f(xn2_ 
f ' <!xn) 


9 


or 


^+1 = ^ - 


+ Ax^n + Bx + C 
3 x 2„ + 2AXn + B 


Care must be taken to Insure that the approximations do not fall In regions 
that Iterate to misleading results, such a? two equal roots or the Interchange 
In order of extraction. 


III. DISCUSSION 


The objective Is to find the complex wave ntimber, k, which Is a function 
of the applied frequency, u). That Is, solve 
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x3 + Ax^ + Bx + C =» 0 

where x * and the complex coefficients are functions of wave frequency, 
collision frequencies, plasma frequencies, and acoustic velocities of all 
species. Digital computer programs were written for the IBM 360 Model 40 
at Mississippi State University and the Univac 1108 at The NASA-Slidell 
Computer Facility at Slidell, Louisiana. The simplified flow chart in 
Appendix A may be helpful in the discussion of the program procedure which 
follows. 

After the plasma properties have been determined, and the coefficients 
of the dispersion relation calculated. Cardan's method of solution of cubic 
equations is employed. Note that after obtaining the reduced cubic 

(z^)^ + qz^ - p^/27 =0 , 

the Newton-Raphson iteration is performed to insure the proper choice of 
z^. The three resulting values of z are substituted into the following 
relation to yield a set of roots to the cubic dispersion relation. 

XI = Zi - p/3z£ - A/3, i * 1,3 

Since the value of x^ is usually small, the terms on the right of the above 
equation are of such magnitudes as to cancel each other, instead of summing 
to the proper x. Consequently, considerable accuracy is lost during the 
complex subtraction and division in the above expression. Therefore, these 
roots are treated only as approximations, and again the Newton-Raphson 
iteration is performed on the cubic 

f (x) - x3 + Ax2 + Bx + C 

The resulting roots are checked first by comparing the value of the cubic 
to zero and second by comparing the sum of the roots to -A, i.e.. 


xi + X 2 + X 3 -A. Finally, the six wave numbers, k, are found by taking 
the square roots of x^, i * 1,3. 


The values of k^ 




1,6 and the corresponding o), completely 
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describe the nature of the wave propagation at any position x and any time 
t, l.e. 

Y « Y(j + 

^ Yo + 

where Y Is some field quantity, Yg the undisturbed value, and y the amplitude 
of the perturbation at the source. The phase velocity Is defined Uj * u/k^j , 
and the wave damping Is determined by k]^. Only the three positive values of 
k, which represent waves propagating In the positive x direction will be 
discussed, since the three negative values represent the same wave form In 
the negative x direction. 

Because of the wide separation In the magnitude of the real and Imaginary 
components of the coefficients and resulting Cardan terms, the complex opera- 
tions were reduced so that all calculations take place In real arithmetic. 

This allows the greatest use of the double precision features of the Fortran 
language. Special care must be taken In all operations to obtain maximum 
accuracy. Whenever possible, expressions were written In their lowest power 
form where addition and multiplication are the dominant operations. For 
Instance, was written as (A+B) {A-B) . Special sub- 

programs were written to perform the complex operations of division, multi- 
plication, squaring, cubing, square and cube root extraction, and Newton- 
Raphson Iteration. 

Only the subroutines performing square and cube root extraction con- 
verted the complex numbers Into polar form. These operations were performed 
In the XPOCPX subroutine by the expression 

(a+lb)^^“ = ■(cos ( ) + 1 sln(il|^)^ 


where K >■ 1, • • , n-1 and ^ Is the argument of the complex number. All other 
functions merely manipulated on the coefficients of the operating complex 


numbers . 
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Consequently, the product and the square of complex numbers, i.e. the 
CPROD and CDSQ subroutines, were taken simply and accurately since 

(a+ib) (c+id) = (ac-bd) + i(bc+ad) 

A similar approach was taken to the division operation, the CDDIV 
sub routine , s ince 

arhlb _ a+ib ^ c-ld^ ac+bd+i (bc-ad) ^ 

c+id c+id c-id c2+d2 

/ 

and also the cubing operation, CDCB subroutine, because 

(a+lb)3 . (a2-b2+2abl) (a+lb) 

= a(a+V^ b ) (a- V 3 b) + lb (V^a+b) (V~3' a-b) 

By exercising the caution discussed above and utilizing the iterations 
described previously, roots of the highest possible accuracy are obtained 
from the dispersion relation. 

IV. RESULTS 

The program was tested for a plasma with the following parameters, 
which were calculated as a typical ionospheric condition at an altitude 
of 320 kilometers at 45^ North latitude and 90^ West longitude. 



A complete solution to the dispersion relation was determined for applied 
frequencies ranging from 10"'^ to 10® radians/second. The mathematically 
possible solutions for the phase velocities and corresponding e-folding dis-^ 
tances are plotted in Figures 1 and 2, respectively. In these two figures, 
both the horizontal and vertical axes are plotted on logarithmic scales. The 
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propagating and damping characteristics of each solution for u) « 1 radian/ 
second are plotted in Figure 3. 

Phase Velocities 

As seen in Figure 1, the phase velocity predictions agree in many 
respects with the approximated solutions of Tanenbaum and Hintzer, which are 
presented in Figure 1 of Reference 1. 

1. At low frequencies, to = < VjLn> only two of the possible three wave 

solutions propagate through the plasma, one at the acoustic velocity of 

the entire fluid, Uj « (yP/p)^ and the other at a much lower velocity. 

In the numerical calculations, Uf, Uj^, and were taken as the same. 

The third wave mode has a phase velocity greater than the speed of light 

for (0 < However, as shown in Figure 2, the e-folding distance for the 

-2 

third solution is less than 10 meters for this frequency range; therefore, 
there is no propagation for this mode of the disturbance. 

2. When w - one of the propagating wave modes increases exponen- 
tially in phase velocity with increasing frequency until co = The 

other propagating mode propagates at the constant phase velocity Uf. 

3. When < u) < o)f, the wave mode which was propagating with exponentially 
increasing phase velocity with increasing frequency now propagates at the 
acoustic velocity of the electron-ion gas mixture 

u = [ ~Y(Pe + Pj) V 

L Pe + Pi J 

4. When < a> < the two existing wave modes propagate at the ion and 
neutral acoustic velocity, Ui and U^- 

5. When o) > Wgi the third wave mode now has a finite e-folding distance 
and propagates at the electron acoustic velocity. 

The phase velocity plot presented as Figure 1 of Reference 1 was obtained 



from a set of approximate solutions to the complete dispersion relation, 
each approximate solution valid in a given frequency range. That analysis 
indicated that the wave mode which propagates at the phase velocity Up in 
the range < oj < o)£ was the same mode which propagates at Uf for low 
frequencies, u) < The present analysis which considers the complete 

dispersion relation for longitudinal oscillations along the magnetic field 
shows that this is not the case. The wave solution with an exponentially 
increasing phase velocity with increasing frequency for a> < is the wave 
mode which propagates at a phase velocity Up for < ca < o)£. 

Both the real and the imaginary components of the wave number, 
and k;£, are interdependent during all mathematical operations performed to 
obtain the solutions of the complete dispersion relation for continuously 
increasing frequency. Consequently, both components of the wave number 
are calculated simultaneously at each frequency during a continuous transfer 
across the frequency spectrum considered. Therefore, information on obtaining 
the continuous curve describing the phase velocity behavior of a given wave 
mode with increasing frequency is contained in requiring continuity of both 
kj^ and kj with frequency change. The qualitative plots presented in Figure 1 
of Reference 1 could not reveal the correct smooth transition of the phase 
velocity of a given wave inode with frequency since the phase velocity was 
calculated in several discrete frequency ranges and the kj; solutions were 
not considered. 

E-Folding Distances 

The e-folding distance is defined as the distance from the source of 
the perturbation at which the amplitude of the wave is damped to 1/e of 
its Initial amplitude, where e is the exponential factor. Each of the e- 
folding solutions corresponds to one of the phase velocity solutions, since 
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both quantities are taken from the imaginary and real components, respec- 
tively, of the same wave number, k. Note that corresponding solutions are 
symbolized in the same manner on each graph. Some interesting facts are 
observed in Figure 2, the plot of e-folding distance versus wave frequency. 

1. When 0 ) < wave mode which propagates at a phase velocity of 

is essentially undamped. The e-folding distance for this wave mode 
decreases exponentially to a constant value when o) - This solution 

shows very little damping throughout the frequency spectrum considered. 

2. When o) < Vj[n> wave mode which propagates with an exponentially 

increasing phase velocity has a decreasing e-folding distance with 
increasing frequency until o) = vin« The e-folding distance for this 
wave mode then remains constant with increasing frequency until to 0)^. 
The phase velocity of this wave mode is Up for m < to^. At to - to^, 

the e-folding distance for this wave mode decreases to a new constant 
value. The phase velocity of this wave also decreases to a new constant 
value at 0 ) - (Oj^. 

3. For (0 < (Og, the third wave solution shows almost instantaneous damping 
near the source of the disturbance, i.e. an e-folding distance of less 

o 

than lO"^ meters. The corresponding phase velocity for this wave mode 
was greater than the speed of light. A slight increase in the e-folding 
distance for this third mode of wave propagation occurs at o) - wf. 

At 0 ) - 0 ) 0 , the e-folding distance for this wave mode increases almost 
immediately to the e-folding value of the second solution. 

Propagation 

Figure 3 shows the propagation described comple'tely by the three complex 
wave numbers at w = 1 radian/second. The influence of the different k^ and 
kj on the wave length and attenuation of the possible wave solutions can be 



seen. The wave configurations in Figure 3 occurred at the time when the 
wave with the slowest phase velocity had traversed a distance twice the 
maximum wave length given by the three solutions. The actual perturbation 
of the electron velocity along the magnetic field would propagate as the 
superposition of the three solutions since the governing equations were 
linearized by small perturbation theory. For illustrative purposes, the 
initial perturbation was taken as for all solutions. The superposition 

is shown as a solid line, while the other solutions are symbolized as before. 
The solution which is damped almost immediately at the source of the dis- 
turbance is shown as a point on the vertical axis at x = 0. 

V. CONCLUSION 

Complete solutions were obtained for the dispersion relation based on 
the three-fluid plasma model which governs the propagation of small longi- 
tudinal perturbations along the magnetic field. The complete solution for 
the dispersion relation is advantageous because it gives the complete 
description of the wave propagation. The resulting wave numbers consist 
of both real and imaginary parts which describe both the velocity and damping 
characteristics of each solution. Since the governing equations are linear- 
ized^ the complete perturbation can be described by superimposing the wave 
solutions for the three-fluid plasma model. 

An iteration procedure was necessary for accurate results because the 
magnitudes of some important terms in Cardan’s method are such that the terms 
cannot be subtracted or added effectively by the computer. Numerically, the 
roots of the cubic dispersion relation are very accurate except at the high 
frequencies above Here, although the roots can still be trusted numer- 

ically, their magnitudes are not as precise as the roots of lower frequencies. 

The complex phase velocity solutions closely agree with the approximated 
predictions made by Tanenbaum and Mintzer in the various frequency ranges. 
However, the order of extraction of the solutions over the considered 



frequency range does not. agree. The approximate solution could not reveal 
the correct order since It did not contlnuotisly transfer across the entire 
frequency spectrtim nor. was the Information contained In requiring continuity 
In the imaginary part of the wave number utilized. 
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Appendix B. Computer Program. 


OF IONOSPHERIC PARAMETERS 

ME = ELECTRON MASS 

MI » ION NASS 

XMH = MOLECULAR WEIGHT 

r * ELECTRON CHARGE 

K s BOLTZMAN CONSTANT 

ON » DIAMETER OF NEUTRAL ATOM 

DIAMETER OF NEUTRAL PARTICLE AND ION IS 3.CE-10 METERS 
GAMMA * SPECIFIC HEAT RATIO FOR COMPOSITE GAS 
AL = ALTITUDE IN KILOMETERS 

B = MAGNETIC FIELD STRENGTH; IN WEBERS PER SQUARE METER 

ALL NO. DENSITIES ARE IN NO. PER CUBIC METER EXCEPT FOR NEC 

NO = NO. DENSITY FOR ATOMIC OXYGEN 

N E== NO. DENSITY FOR HELIUM 

N02 = NO. DENSITY FOR MOLECULAR OXYGEN 

NN2 = NO. DENSITY FOR MOLECULAR NITROGEN 

NN = NEUTRAL NUMBER DENSITY IN l/METERS CUBED 

NI = ION NUMBER DENSITY IN 1/METERS CUBED 

NE = ELECTRON NUMBER DENSITY IN 1/METERS CUBED 

NEC = ELECTRON NUMBER DENSITY IN 1/CENTIMETERS CUBED 

TI = ION TEMPERATURE IN DEGREES KELVIN 

TE = ELECTRON TEMPERATURE IN DEGREES KELVIN 

F » DEGREE OF NON-IONIZATION 

WI = CYCLOTRON FREQUENCY OF IONS 

HE = CYCLOTRON FREQUENCY OF ELECTRONS 

PFI = PLASMA FREQUENCY OF IONS 

PFE = PLASMA FREQUENCY OF ELECTRONS 

UI.UN = ION AND NEUTRAL SOUND VELOCITY, RESPECTIVELY 

UE = ELECTRON SOUND VELOCITY 

UF = ACOUSTIC VELOCITY FOR THE ENTIRE FLUID 

QIN * COLLISION CROSS SECTION OF IONS WITH NEUTRALS 

QEN » COLLISION CROSS SECTION OF ELECTRONS WITH NEUTRALS 

VEI » COLLISION FREQUENCY OF ELECTRONS WITH IONS 

VEN « COLLISION FREQUENCY OF ELECTRONS WITH NEUTRALS 

VlN=COLLISION FREQUENCY FOR IONS PASSING THRU NEUTRAL GAS 

VNI=COLLISION FREQUENCY FOR NEUTRALS PASSING THRU ION GAS 

Cl = MEAN THERMAL SPEED OF IONS IN METERS PER SECOND 

CE * MEAN THERMAL SPEED OF ELECTRONS IN METERS PER SECOND 

TAUE = TIME BETWEEN COLLISIONS OF ELECTRONS WITH HEAVY PARTICLES 

TAUIN = TIME BETWEEN COLLISIONS OF IONS WITH NEUTRALS 

REAL NHE,LAM1,LAM2,K1,NEC,KR1,KR2,KI1,KI2 

DOUBLE PRECISION UE,UI ,UN,VEI,VEN,VINyNE,NI, NN,ME,MI,MN,RHOE,RHOI, 
1 RH0N,VNI,PFE,PFI,N0,N02,NN2 
AL=320.0 
C1=1.6E-19 
DN=3.E-10 
Kl=1.38E-23 
61=5. lE-5 
IF(AL-300.) 1,2,2 

1 NE = (EXPIO. 0069*1 AL-300. ) M*3. Ell 
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GO TO 3 

2 NE * EXP(0.C069*<3O0.-ALn*3,Ell 

3 NI = NE 

NEC = NE*l.E-6 

NN = 10.**(18.0-((AL-120.I/18«6|**0.5) 

F = l.C-NE/NN 

TI a 1000.-65C.*EXP(0*035*(120.-AU) 

TE a T1+2CO.+2200.*SIN(0.00523*CAL-100.) » 
IFCAL-275.) 4,5,5 

4 XMW = 27,7-C.C457*(AL-lUC. » 

GO TO 6 

5 XMW = 19.4-C,0222*(AL-275.I 

6 MN a XMW^l,66E-27 
MI a MN 

ME a 9,11E~31 

Ala 9,42 ♦ l,5*ALOG(TE) - 0. 5*ALOGCNEC I 
VEI a NEC*A1/(0.38*(TE**1.5)) 

OEN a 3,14*(DN»*2)/4.C 

CE a (8«*K1*TE/C3.14*MEI 

VEN a CE*QEN*NN 

VEaVFH-VEN 

TAUE a 1,/(VEN+VEI) 

QIN a 3.14*DN*0N 

CJ a <8**K1*TI/(3.14*MI) 

VIN a I2.*»0.5»*CJ«QIN*NN 
VNl a (2.**0,5)*CJ*QIN*NI 
TAUIN a l./VIN 
WI aCl*Bl/MI 
WEC=C1»B1/ME 

SIGMA a ne’^ci*ci/(me*(ven4-vei n 

820 a WEC*TAUE 

810 a F*WEC*TAUE*hI*TAUIN 

ROaMN*NN+MI*NI 

DELTA a (12,5E-7»*SIGMA 

AX =B1/(R0*12.56E-7I**C.5 

IF (AL-165.1 20,21,21 

20 ALXaAL-120. 

NO a 10,**(16,8-C.C222*ALXI 
NHE a 13,5-0. 0C89+ALX) 

N02 a 10,**I16.8-C.0356*ALX) 

NN2 a 1C.**C17.6-C,C334*ALX) 

GO TO 22 

21 ALX a AL - 165. 

NO a 10.**<15.8-G.0C827*ALX) 

NHE a 10.**I13.1-C,00184*ALX) 

N02 a 1C.4*(15.1-C.0145*ALXJ 
NN2 a 10,**<16,C-U.0129*ALX) 

22 XMl a (16.*N0*4.*NH£)/(NC*NHE) 

XM2 a (28.*NN2 + 32.*N02 J/CNN2 ♦NC2) 

XP a (NC2+NN2)/(NC2+NC+NN2+NHE) 
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6AM1 » 1.67 
IF (Tl~550«)23»24*24 

23 GAM2 = 1.40 
GO TO 25 

24 6AM2 >1.39 

25 GAMMA » CGAM1*XM2/XM1 ♦ XP«GAM2«CGAM1^I« l/il.-XPI/ CGAM2>1. H/ 
1 (XM2/XM1 XP/(l,-XP)*CGAMl-l.I/CGAM2-l.n 

R1 « 8.31E3/XMM 
RE = 1.48E7 

UI » (GAMMA*RI4TII**0.5 
UE » CGAM14RE*TE)*»0.5 
UF=UI 

EPS=8.85E-12 

PFI=CNI*C1*C1/MI/EPS)**0.5 
PFE= CNE*C1*C1/ME/EPS )*40.5 

THIS STACK OF CAROS CONVERTS ALL QUANTITIES TO GAUSSIAN UNITS 


C1=C1*3.E9 
Bl=Bl*l.E4 
NE*NE*l*0-6 
NI»NI*l,D-6 
NN=NN*l.D-6 
MI»Mm.D3 
MN*MN*1.D3 
ME=ME*1*D3 
0EN=QEN*1.E4 
CE=CE*1.E2 
QIN=QIN«1.E4 
CJ=CJ*1*E2 
SI6MAsSIGMA*9.E9 
R0«R0#l,£-3 
0ELTASDELTA49.E16 
AX*AX«1.E2 
N0=N0*l,E-6 
NHE=NHE’»l.E-6 
N02=K02*l,E-6 
RI=RI*l*E-3 
Nf42»NN2*l.E-6 
RE«RE^l*E-3 
UIsUI<Sl«02 
UN=UI 

UEsUE«1.02 
UF*UF^1.D2 
12 CONTINUE 
RHOE=NE*ME 
RH01>NI*MI 
RHON»NN«MN 
CALL TRHVLG(PFE«PFI»RH0EtRH01 
STOP 
END 


RHQN«VEl«VEN«VIN«VNI«UIfUE«UNI 
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SUBROUTINE TRKVLGfHEtMltRHOEtRHOIrRHONtVEIrVENtVINtVNl«UlfUE«UN) 
DOUBLE PRECISION KRA f 3 ) , K1 A( 3 > » BOKRf 3 ) • BDXR ( 3 > »BOX 1(3} » BX2R ( 3 } « 

1 BX2 1 ( 3 ) * BX3R ( 3 ) » 6X3 1 ( 3 ) » BCX2R ( 3 ) 4 6CX2 1 (3 ) • BCNR ( 3 ) » BCM 1 (3 ) 4 

2 BCXR(3)«BCXI(3) 

DOUBLE PRECISION UE«UI,UN«VElyVEN»VINtRHOE*RHOI« 
lRH0N«VlE«VNl*VNEtMItWE«HI2vVE»VI«VN«UPR2f 
2 HE2» H2f H3t U4t N5, W6 

DOUBLE PRECISION A3t A2» ASQRf ASQIt ACBR, ACBIt B3r B2f ATMSBR* 

1 ATMSBIy PIR, P1I» PR« PIN* QR« QI» QSQR« QSQI<r PSQRt P$QI« PC6R» 

2 PCBIv AMADRt AMADIf RADR(2)» RA0I(2)t ZCBRt ZCB1« 

3 ZR(3)tZIt3)yBETR(3}»BETI(3}tXZR(3}rXZI(3} 

DOUBLE PRECISION XSQR(3) «XSQI (3) *XCBR(3) vXCBI (3 1 «AXSQR (3 )« AXSQI (3 ) 
1 tBXR( 3),BXI(3),CR0NR(3)*CR0NI(3}»XTSKR(3),XTSKI(3),XRRT0(3), 
3XIRT0f3) 

DOUBLE PRECISION NUMR.NUHI yATSTR»ATSTI tRTAR»RTAI ,A( 10} vB( 10 ) » 
lHfUE2fUI2tUN2«DRtPRD3«PI03«KR(2}tKI(2}»U(2)»XE(2)tC3tC2«XR(3) 
DIMENSION PHVY(4,250) 

PROGRAM USES CARDAN'S METHOD TO SOLVE CUBIC EQUATIONS 
OF THE FORM »X^*3 + AX**2 * 8X + C = 0». 

w :applieo frequency 

WE : PLASMA FREQUENCY OF ELECTRONS 
WI :PLASMA FREQUENCY OF IONS 
RHOItHASS DENSITY OF IONS 
RHOErMASS DENSITY OF ELECTRONS 
RHONSMASS DENSITY OF NEUTRALS 
VAB :EFFECTIVE COLLISION FREQUENCY 
OF 'A* WITH 'B* 

UI SACOUSTIC VELOCITY OF IONS 

UE SACOUSTIC VELOCITY OF ELECTRONS 

UN SACOUSTIC VELOCITY OF NEUTRALS 

VIE= RHOE#VE!/RHOI 

VNE»RH0E4VEN/RH0N 

HI2=WI**2 

HE2=HE442 

UI2=UI**2 

UE2=UE4*2 

UN2=UN*42 

VE=VEI+VEN 

VlsVlE^VIN 

VN=VNE+VNI 

UPR2 = (UI4UN*UE)**(-2 } 

UT0T*UI*UN4UE 

H=l«08 

JJ=0 

1000 WRITE (3*104) W 
104 FORMAT (//• W=» *1PD11.4I 

JJ»JJ+1 
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L=JJ 

H 2 = W *=»2 
W3 = 

HA = 

W5 = W*A5 
H6 « W**6 

A3=(WE/UE )«’»2«fMI/UI )t'«2-« < H/UEI«*2+I W/UI )##2-K( «/UNI#«2) 

A2= -H*CVE««UI«UNI**2 +VI*(UE*UN>*#2 ♦VN«CUE*UI J**21<'UPR2 

B3 = <WA*CUN2+UI2*UE2)- W2*CUE2*« VNI*V1E ♦VNE^VIN +VNE#VIEI ❖ 
lUI2«'IVEI#VNI-frVEI*VNE -frVEN«VNI» +UN2«'CVIh'nfEN+ VIE*VEN * VIN=SVEI) + 
2HE2AUN2 +m2*UN2 +HE2*UI2 ♦HI2«'UE2J J «UPP.2 

B2 = IH3AC UN2*CVEl*VEN*VIN<'VIEJ-»-UI2*<VEH-VEN-frVNI+VMEKUE2’S'<VlN-s- 
1 VlE+VNI-frVNEM -W*HE2*( C V^JI•^VNE j*aiN2<'nH0N^-UE2«nH0E)/RHni <■ 

1 <VNI<>VNE)AUI2n-UPR2 

C3=CHA*tVEI«VNI ♦VEI«VNE *VEN«VMe <VNI*VIE ♦VNE+VIN +VNE#VIE 
1+VIN#VEN +VIE+VEN +VIN«VEI +WI2 <HE2>-«6 »*UPR2 

C2 = I^H5=!‘ ( V IN+V I E+VE H VEN+VNI-PVNE l+H3«HE2* ( VN+( C RHOE+RHONI *VN/ 

1 RH0I)))«UPR2 

CALL CDSQfA3»A2tASQRf ASQII 
CALL CDCB(A3>A2»ACBRfAC0I» 

CALL CPR00(A3f A2tB3»B2tATMS0R«ATMSBU 

DEFINE P«S AND Q»S. 

PIR = ASQR/3.0D0 
PlI » ASQI/3.0D0 
PR * 03 - PIR 
PIM = B2 - PlI 
PRD3«PR/3*D0 
PID3=PIM/3*D0 

QR= 2.DC*ACBR/27.D0 - ATMSBR/3«DO +C3 
QI* 2.D0*ACBI/27«D0 - ATMSBI/3.D0 +C2 

DEFINE Q«*2, P**3 AND AHAD. 

CALL COSQfQR*QItQSQR«QSQI) 

CALL CDSQfPR»PIM«PSQR,PSQl) 

CALL CDCB(PRfPIN»PCBR«PCBI) 

AMADR = QSQR + A,0D0*PCBR/27.QD0 
AMADI = QSQI * A.GD0«PCBI/27.0D0 
CALL XPOCPXfl,2,ANADRvAMADl»RADRffRAOn 
ZC6R s 0.5D0Af>QR * RADR(ll) 

ZCBI = 0.5D0«I-QI - 1 ^ RADKin 
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CALL NHTZC6fZ€BR«ZCBl,€{R«QIVfFCBR/27.00l«{PCBI/27«00l«ZCBR, 
1ZCB1«NUMR*NUM1) 

CALL XP0CPX(l>3»ZCBRfZCBIfZRfZII 
DO 9 I»lf3 

XZRf II 3«000*ZRm 
XZUll ^ 3.000*ZI(I) 

CALL CODIV fPR»PlM«XZRf Il tXZIf llrBETRdlVBETIf 11 1 
XR( I )«ZRI Fl-BETR C 1 )^A3/3.D0 
XU I )=Z1 C Il-BETII 1 1-A2/3.D0 
9 CONTINUE 

ATSTR=XRUI*XRC2)*XR«31 

ATSTI=XIfll*XH2)+Xl<3) 

RTAR—ATSTR/A3 

RTAI»~ATSTI/A2 

ZFfRTAR.EQ.l.OO.ANO.RTAl.EQ.l.OOl 60 TO 301 
00 145 I»lt3 

IF(0ABS(XRII)/ZR(11I.LE.1.D-131 XRfl 1=0.00 
IFfOABSfXIf Z1/ZI(I11.LE.1.D>131 XI (11=0.00 
WRITE(3t2221 XR(I1»X1(I1 

222 FORMAT!* XR=* ,023*16»* Xl=*, 023.161 

CALL NWTXRT(XR(1 1«XI ( I }» A3t A2»B3»B2«C3t C2t XR( I l»XI ( 1 1»NUMR«NUHI 1 
MRITE(3«223I XR( 1 ItXI ( I1«NUMR,NUM1 

223 FORMAT!* XR= • ,023. 16, • XI=* ,023.16, * ZERO=* ,2014.6) 

145 CONTINUE 

ATSTR=XR!11+XR(21*XR(3I 

ATSTI=XI!ll-fXI(2l*xn3) 

RTAR=-ATSTR/A3 

RTAI=-ATSTI/A2 

301 CONTINUE 

00 302 1=1,3 

CALL CDSQ!XR(I),XI(I1,XSQR!11,XSQ1!111 

CALL CDGB!XR! 11,XI (I1,XCBR!I l,XCBI!l 11 

CALL CPROD! A3,A2,XSQR! 11,XSQI !I )«AXSQR!1 1,AXSQI! II 1 

CALL CPROO(B3,02,XR(1),XI!11,BXR!I1,BX1!I11 

CRONR ! 1 1=XCBR C I l+AXSQR ( 1 1 + BXR ! 1 1*C3 

CRONI ! 1 1=XCDI ( 1 1-i-AXSQI ( I )4BX I ! 1 }*C2 

302 CONTINUE 

NOTE: K » DSQRT!XR), UU » W/K AND XE = 1/KI. 

note: each *CALL* GIVES TWO K*S. 

PHVY!4,JJ1=W 
DO 10 1=1,3 

CALL XP0CPX!lf2,XR!ll,Xl!Il,KR,Kll 
PKR!I)=KR!1) 

PK1!I1=K1!11 
DO 15 J=l,2 
U!J1 = H/KR(J) 

15 XE!JI = 1.000/KUJ) 

PHVY ( 1 f J J 1=DL0610 ( DABS (U 1 1 1 1 1*10. 
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WRITE (3tl55) XRCU»XI{U«KRfU«Kl(l)»Uf ll*XEU)»KRI2l>Kl(2MUf21« 
1 XE(2I 

155 FORMAT!* XR«» .023.16, • XI=:*,023.16,* KR b*.013.6,* K1 

1 013.6, 2X,*U =•, 013.6, 2X,*XE .013.6/55X, *KR «*,013«6, • KI »■, 

2 013.6, 2X,*U «*,013.6,2X,>XE =•, 013.6) 

10 CONTINUE 

WRITE(3,158) ATSTR,ATSTI,RTAR,RTAI 
158 FORMAT! ■ AR»>, 023. 16, tAIs*, 023.16, • TEST^*, 2023,16) 

00 33 Ial,3 

WRITE!3,156)XR!I),X1!I),XCBR!I),XCB1!1),XSQR!1),XSQ1!1)# 

1CR0NR!I),CR0NI!1) 

156 FORMAT!' ', •Xs',2D14.6,' X3si ,2014.6, • X2>* ,2014.6, • CRDN»* ,2014.6 
1 ) 

33 CONTINUE 


0R*=1.D12 

IF!H.GE.DR) 

GO TO 

9000 









IF 

!H 

• 6E. 

1.00 9 

• AND. 

H 

• LT. 

1.0023) 

H 

= 

H 

♦ 

l.OD 1 

IF 

!W 

.GE. 

1.00 8 

• AND. 

W 

• LT. 

1.00 9) 

W 

n 

W 

+ 

l.OD 8 

IF 

!W 

.GE. 

l.OD 7 

• AND. 

W 

• LT. 

1.00 8) 

M 

s 

N 

♦ 

1.00 7 

IF 

!W 

• GE. 

1.00 6 

• AND. 

M 

• LT. 

1.00 7) 

H 

as 

W 

+ 

l.OD 6 

IF 

!W 

• GE. 

1.00 5 

• AND. 

H 

• LT. 

l.OD 6) 

W 

s 

W 


1.00 5 

IF 

!W 

• GE. 

1.00 4 

• AND. 

M 

• LT. 

1.00 5) 

H 

ss 

H 

♦ 

1.00 4 

IF 

!W 

• GE. 

1.00 3 

• AND. 

W 

.LT. 

1.00 4) 

W 

« 

W 

♦ 

1.00 3 

IF 

!W 

• GE. 

1.00 2 

• AND. 

M 

• LT. 

1.00 3) 

H 


W 

♦ 

1.00 2 

IF 

!H 

• GE. 

1.00 1 

• AND. 

W 

• LT. 

1.00 2) 

H 

= 

W 


1.00 1 

IF 

!W 

• GE. 

1.00 0 

• AND. 

w 

• LT. 

1.00 1) 

W 


W 

+ 1 

• 00 0 

IF 

!W. 

»GE. 1 

.00-1 . 

AND. 1 

w • 

LT. 

1.00 0) 

H - 

= 1 

♦ 1 

.00-1 

IF 

!W 

• GE. 

1.00-2 

• AND. 

w 

• LT. 

1.00-1) 

W 


W* 1 

.00-2 

IF 

!H 

• GE. 

1.00-3 

• AND. 

H 

• LT. 

1.00-2) 

W 

as 

w 

♦ 

1.00-3 

IF 

!W 

• GE. 

1.00-4 

• AND. 

w 

• LT. 

l.OD-3) 

H 

r= 

w 

♦ 

1.00-4 

IF 

!W 

• GE. 

1.00-5 

• AND. 

H 

• LT. 

1.00-4) 

W 

= 

N 

♦ 

1.00-5 

IF 

!H 

• GE. 

1.00-6 

• AND. 

M 

• LT. 

1.00-5) 

M 

as 

H 


1.00-6 

IF 

60 

!W 

TO 

• GE. 

1000 

1.00-7 

• AND. 

W 

• LT. 

1.00-6) 

W 


H 

♦ 

1.00-7 


9000 RETURN 

0EBU6 UNIT!3),SUBCHK 
END 


SUBROUTINE COSO! A,B,SQ1,SQ2) 
DOUBLE PRECISION A, B, SQl, SQ2 
SQ1»!A-B)*!A+B) 

SQ2 > 2.0D0*A«B 
RETURN 

DEBUG UNIT!3),SUBCHK 
END 
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SUBROUTINE XPOCPXCMtNt A,B,XR,XHI 

THIS SUBROUTINE CALCULATES THE M/NTH ROOTS OF A COMPLEX NUMBER 
OF THE FORM »C = A ♦ I*B». 

DOUBLE PRECISION A, B« BAR, BETA, COEF, K, PI, RM, RN, T, XM(25), 
1 XR (251, ALFA 
DOUBLE PRECISION AA,BB 
AA:=DABS(A1 
BB==OABSfBl 
RM = M 
RN = N 

PI = 3.14159265358979324D0 

IFCAA.EC.O.DO.OR.BB.EQ.O.DO) BAR=OSQRTC A**2+B**2) 
IF(AA«EQ.O«00»OR.68.EQ,O.OOI GO TO 1010 
BAR=DABSIA)*DSQRT(1.D0+{B/AI**2) 

1F(B*LE. 1.0-32) GO TO 1010 

I F (DABS ( OLOGIO ( AA )-DLOGlC ( BB I ) . LEi4. DO ) 8AR=DSQRT ( A**2*B**2 ) 

1010 COEF =' BAR**tRM/RN) 

T = DATAN2(B,A) 

IF IB .LT. O.ODO) T = 2.0DC+PI - DABSCT) 

K = O.ODO 

00 100 I«1,N 

BETA = T + K*2.0D0’i'PI 

ALFA=BETA»RM/RN 

XRCI) = COEF*DCOS(ALFA) 

XMCI) = COEF«DSIN(ALFA) 

100 K * K + l.ODO 
RETURN 

DEBUG UNIT(3),SU8CHK 
END 


SUBROUTINE CDD1V(A,B,C,0,E,F) 

DOUBLE PRECISION A,B ,C ,D,E,F,DEM 
DOUBLE PRECISION CC,DO 
CC=OABS(C) 

DD=DABS(D) 

IF ( CC o EQ.O.DO.OR. DO. EQ. 0. DO ) OEM^C+^a+D^^^Z 
IF(CC.EQ.O.DO.OR.DD.EQ.O.DO) GO TO 1010 
DEM= C C««2 ) * ( 1 . 00+ ( D/C ) ♦*2 ) 

IF(D.LE.l.D-32) GO TO 1010 

I F I DABS ( DLOGIO ( CC I-DLOGIO I DO ) ) . LE.4. DO ) DEM= ( C*^2+D**2 ) 
1010 E=(A=^C+B=>D)/DEM 
F=(B*C-D^A)/OEM 
RETURN 

DEBUG UNIT(3),SUBCHK 
END 
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SUBROUTINE NWTXRTfXRsXIsARgAIoBRrBItCRtClyXNEHRtXNEUlf NUMRyNUM^J 
DOUBLE PRECISION XR»XI »ARyAIy ORyBIyCRyCI yXMEHRy XNEHIy 

1 XCBRyXCBly XSQRyXSQI * AXSQRyAXSQI y AXRyAXI .BXRyBXI y 

2 NUHRyNUMIyOENRyOEMIyOLTRyOLTI 
DOUBLE PRECISION TESTR.TESTI 
N=0 

5 CONTINUE 
N=N+1 

IFIN.GT.200) GO TO 15 
CALL CDCBfXRyXlyXCBRtXCBn 
CALL CDSQ(XRyXIyXSQR*XSQl ) 

CALL CPRODf AR,AI yXSQRy XSQI t AXSQRy AXSQI ) 

CALL CPRODIAR, AI«XRyXl,AXR,AXIf 
CALL CPR00(BRy6I,XR»XI,BXRyBXI ) 

NUMR=XCBR+AXSQR+BXR+CR 

NUMI=XCBI<-AXSQI*BXI+CI 

DEMR=3,D0’S‘XSQR-»'2.D0«AXR+BR 

DEMI=3*D0*XSQI+2.D0*AXI+BI 

IFIDEMR.EQ.O.DO.AND .DEM I.EQ.OyOO ) WRITEOylOl) 
IFIDEMR.EQ.C.OO.AND •0EMI.EQ«0.00) GO TO 15 
IFCNUMR*EQ.O.DO.ANDoNUMI*EQ*O.DO) 60 TO 15 
CALL CDDIVINUHRyNUMI yDEMRyOEMlyOLTRy DLTI } 

XNEHR=XR-DLTR 
XNEWI=XI-OLTI 
TESTR=DABS( XR/DLTR ) 

TESTI=DABSIXI/DLTII 

lF«TESTRyLT,l.D-15,AND.TESTI.LT.l.D-15J GO TO 15 
XR=XNEHR 
XI=XNEHI 
GO TO 5 
15 RETURN 

101 FGRMATC «♦♦♦ THE DERIVATIVE OF FfX**3»-0 *#♦*•! 

DSDUG UNIT(3)ySUBCHX 
END 
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SUBROUTINE NWTZCBCXR»XlyQRfQltSRtSrrXNEHR»XNEHI»NUMRtNUNl) 
DOUBLE PRECISION XR»XI »QR«QI ySRySIy XNEURyXNEUl* 

1 XSQRtXSQIyQTMSXRyQTHSXlfNUMRyNUrtlyOEHR, 

2 OENIyOLTRyOLTI 

DOUBLE PRECISION TESTRyTESTI 
N>0 

5 CONTINUE 
N*N+1 

IFfN.GT.lbOl 60 TO 15 
CALL CDSQ(XR»XI«XSQRtXSQI) 

CALL CPROD I XR • XI y QR » Q I • QTMSXRyQTNSXI ) 

NUHR>XSQR + QTMSXR > SR 
NUMI=XSQI ♦ QTMSXI - SI 
DEMR=2*D0*XR ♦ QR 
0EMI-2«D0*XI * Ql 

IFCOEMR.EQyO.OO.AND •0EMI.EQ«0«D0t HRITEOtlOll 
IFfOENR.EQ.O.OO.ANO •0EMI.EQ«0.00) GO TO 15 
IFCNUMR.EQ.O.DO.AND.NUMI.EQ.OyOO) GO TO 15 
CALL CDOIV(NUNR«NUMIfDEHRyDEMIfDLTR«OLTI ) 

XNE«R*XR-DLTR 
XNEWI=XI-DLTI 
TESTR=DABSIXR/OLTR ) 

TESTI»DABS(XI/DLTI» 

IFCTESTR.LT.1.0>15«AN0.TESTI*LTyl*D-15l GO TO 15 
XR=XNEHR 
XIsXNEWI 
60 TO 5 
15 RETURN 

101 FORMAT! • *♦♦♦ THE DERIVATIVE OF F!Z**3)«0 ♦♦♦♦•! 

END 

SUBROUTINE CPRODCAyByCtDyPRODRtPROOI } 

DOUBLE PRECISION At By Cy Dy PRODRy PROOI 

PRODR = A»C - B*D 

PRODI * B*C ♦ A*D 

RETURN 

END 

SUBROUTINE CDCB(XyY,X3yY3) 

DOUBLE PRECISION XyYyX3yY3yC 
DOUBLE PRECISION CYyCX 
C»DSQRT(3,D0) 

CY«C*Y 

CX»C*X 

X3»X*CX+CY»*«X-CYJ 

Y3»Y*fCX+Y>*(CX-Y) 

RETURN 

END 
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CHAPTER III 

EXPANSION AND NUMERICAL SOLUTION OF THE GENERAL 
DISPERSION RELATION FOR SMALL AMPLITUDE 
PERTURBATIONS IN A THREE- FLUID PLASMA 


by 


Raymond L. Brown and David L. Murphree 


NOTE: Figures, references and equations begin a new sequence in each Chapter, 

Also, the Appendices are lettered consecutively by Chapter, and 
each Chapter includes its own List of Symbols. 
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LIST OF SYMBOLS 

Velocity of Light in a Vacuum 
Specific Heat at Constant Pressure 
Specific Heat at Constant Volume 
Charge of Electron 
Electrical Field Strength 
Magnetic Field Strength 
Steady Applied Magnetic Field Strength 
Perturbation Magnetic Field Strength 

Wave Number (K^ = real part; = imaginary part) 

Mass of Electron, Ion, and Neutral Particle 
Mass Ratio of Ions to Electrons 
Index of Refraction 

Number Density of Electrons, Ions, and Neutral Particles 

Partial Pressures of the Electron, Ion, or Neutral Particle 
Gas 

Acoustic Velocity of Electron, Ion, or Neutral Particle 
Species 

Acoustic Velocity of the Entire Gas 

Acoustic Velocity of the Electron-Ion Gas Mixture 

Alfven Velocity of Entire Gas 

Alfven Velocity for Charged Particle Fluids 

Angle Between Direction of Wave Propagation and Applied 
Magnetic Field 

Mass Density of Electrons, Ions, or Neutral Gas 
Applied Frequency of Wave 
Electron or Ion Plasma Frequency 
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Cyclotron Frequency of Electron 

Cyclotron Frequency of Electrons Associated with Transverse 
or Longitudinal Component of H 

Effective Collision Frequency of Electrons with Ions 
Effective Collision Frequency of Electrons with Neutrals 
Total Collision Frequency of Electrons (v , + v ) 

Effective Collision Frequency of Ions with Electrons 
Effective Collision Frequency of Ions with Neutrals 
Total Collision Frequency of Ions + ^in^ 

Effective Collision Frequency of Neutrals with Electrons 
Effective Collision Frequency of Neutrals with Ions 
Total Collision Frequency of Neutrals + ^ni^ 

Specific Heat Ratio 
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Introduction 

1 2 

Tanenbaum and Mintzer, and Tanenbaum and Meskan have conducted an 
intensive study of wave propagation inodes employing the three-fluid theory 
for a partly ionized gas. Their study of small amplitude oscillations 
in an infinite, homogeneous, partly ionized gas with a uniform external 
magnetic field employed Maxwell's equations together with a set of 
coupled hydrodynamic equations for an interacting mixture of electrons, 
ions, and neutral molecules to obtain the dispersion relations for wave 
propagation perpendicular and parallel to the magnetic field. All the 
work done by Tanenbaum, Mintzer, and Meskan used approximate equations 
to obtain the possible wave modes for propagation of longitudinal waves 
parallel to the field and for propagation of coupled longitudinal and 
transverse waves perpendicular to the field. No attempt, not even approxi- 
mate, was made to obtain the general dispersion relation for propagation 
at any angle relative to the magnetic field. 

3 

Dahl and Murphree considered the case of longitudinal waves pro- 
pagating parallel to the magnetic field, but this study also used some 
approximations . 

4 

McClendon and Murphree conducted a study considering the propagation 
of coupled longitudinal and transverse waves with a transverse magnetic 
field. This study involved no approximations, and the wave modes obtained 
were the exact solutions to the dispersion relation for the case of 
coupled longitudinal and transverse waves with an applied transverse 
magnetic field. 

This paper will present the complete solution of the general dis- 
persion relation using numerical techniques. The solutions of the general 
dispersion relation, which are the complex wave numbers, are plotted in 



terms of iHiase velocity and e-foldlng distance versus disturbance fre- 

—5 +9 

quency for the frequency range, 10 5 o) - 10 rad/sec. Comparisons 

with the previous works are Included, and also, all discrepancies are 
noted. 


Theory 

The main objective of this wave propagation study Is the deter- 
mination of the phase velocities and e-foldlng distances for all possible 
wave modes versus the disturbance frequency. 

The approach used In this study consisted of the small perturbation 
theory applied to a three-fluid partly ionized gas with the three fluids 
being electron, Ion, and neutral gases. 

The assumptions were made as follows: 

1. Fixed degree of ionization 

2 . Adiabatic 

3. All gases obey Ideal Gas Law 

4. The frictional forces between the gases, 
which cause damping effects, allow for the 
conservation of momentum of the total system. 

These assumptions are reasonable for any plasma which is near equilibrium 

and not too dense. ^ 

The plasma can now be described completely by using Maxwell's 
equations, the conservation of mass, momentum, and energy equations for 
each species of gas (electron, ion, and neutral), and the equations of 
state for each gas. 

(1) Maxwell's Equations, 
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(2) Continuity Equation for each gas, 


e.i.n ^ 


Dt 


e,i,n 


e,l,n 


(3) Momentum Equation for each gas, 

e ^ ^^e ^ ^ ^ 

— ® ^ (E 4- — — ) - V , (V -V . ) - V (V -V ) 

Dt m'^ c^ p el el en en 

e 

DV. 


Dt m 
DV 


= — (E + 


V VP 

i \ i 






-) - V, (v.-v ) - V. (V.-V ) 

' le' i e' in' i n' 


VP 


2- - V ( V -V ) - V . ( V J 

Dt p ne n e ni n i 

(4) Adiabatic Condition (Ideal Gas) , 

P , = CONSTANT 

e,i,n e,i,n 

where, y = C^/C^ 

To obtain the dispersion relation, a small periodic oscillation of 
frequency w is applied to the plasma, and the co-ordinate system is 
aligned such that propagation is in the X-direction and the applied 
magnetic field is given by ^ include the periodic 

oscillations applied to the plasma, the variables are put in the form. 




E(r,t) = E e 


i(kx - wt) 


H(t.t) - H° + h 


V , (t.t) - V . e*-** - 

e,i,n e,i,n 


N ,(r,t)=N +n e 
e,i ’ o e,i 


i(kx - tot) 


N (r,t) = N, + n e 
n ’ 1 n 




i(kx - o)t) 


i(kx - o)t) 


T, N ■« . i(kx - o)t) 
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Now, substituting successively each equation into the other, the twenty- 
one equations with twenty-one vinknowns can be reduced to three equations 
with three unknowns. For the present study, the variables retained are 
V , V , and V . The resulting equations are given below, and 
Appendix A contains the substitution procedure followed in obtaining 
these final three equations which were derived previously by Tanenbaum 
and Mintzer,^ 



where , 


^1 = 


(C3 

+ (o)2 


^12 

^21 " 




^13 “ 

itJJtUj [ ( 

C3/C1) - (cg/mc^)] 


^22 “ 

(c^/m) 

- (C4 Cg/Cj) 

+ (o)2 

aj2/mc2) 

^23 " 

"■^32 

- (itoa)j^/c2) 

[C4 - 

(Cg/m)] 

^31 " 

ioju^ [ ( 

c^/mc^) - (c^ 

/C2)] 


^33 “ 

^22 





and the c's are given by, 
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2 2 
* OJ^ - 0)^ 


(1 - n^) ^ + io)V + o)^(v V /Yi) 
' e en ne '1 


where , 


0) 


= 0)^ + io)V 

n 

“t,l = ® 


2 2 

= ^ \ 

^e,i,n ~ 


4TTe^N , 

It 

0 

e 



e,i 


For a non-trivial solution to exist for the matrix equation, 

A V = 0 (1) 

^ -sf 

the determinant of the coefficients must be zero. 

|a| = 0 (2) 

Expansion of the determinant |a| yields the following dispersion relation 

in terms of the c's (See Appendix B for expansion procedure of |a|.), 

.22 322 4 o22 ^2222 

zm CrjC.C/Cr-c^ — m c.c.CcC^ — mCoC.c. “ zmc.CnC/C^ + m CtC.c^ 
23456 3456 235 1246 146 

,24, .22 3 22^ , 22 2 2222 

+ Cj^C2 + 2a)^cojCj^C2 - ^ ^ 

o22 _i_^22 2 _i_o2222 2222 

' - 2niaj^w^c^C2C^c^ + m w^w^c^c^Cg + 2aj^oj£c^C2 - (o^a)£c^Cg 


22222 o 222 , 22 2 3222 

- m m^o)£cj^c^ - 2ma)'^o)£c2C2C2 + ma)^u>£c2C2Cg + m a)^o)£c^C2C. 


-t- 2a)^o)^a)^Cj^C2 


4 2 2 4 2 2 

maj^w^a)^ c, c- - moj^w^tof-c.c^ 
TL45 TL36 


, 442 44 


"T'-2 


“T"4"6 


, 442 44 

+ tu^o),c- - mw^cj^c.Gi: 


L 1 


"L"-3'-5 


= 0 


(3) 


When fully expanded, by putting in the equations for the c’s, the 
full dispersion relation would contain thousands of terms, and therefore, 
it is impractical, and probably impossible, to write out in full. But 
exainination of the equations for the c’s and the dispersion relation shows 
that it is an eight-ordered equation in K-square, and therefore, theoretically 
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eight wave solutions are possible. 

The general dispersion relation which has been obtained is a relation 
for the wave number (K) in terms of the disturbance frequency (o)) for a 
given set of field conditions and for propagation at some given angle 
relative to the magnetic field direction. By solving for K as a function 
of 0 ), the phase velocity (w/K^) and e-folding distance (1/K^) can be 
obtained for all possible modes of propagation at any angle relative to 
the magnetic field. 

The direction of propagation can be controlled by the longitudinal 
and transverse components of the cyclotron frequency. This is accomplished 
by varying the angle 0 between the direction of propagation and the 
direction of the applied magnetic field. 



“t = <^,SIN(0) (U, = O)^COS(0) 

c c m 1 c L c 

e 

Once the dispersion relation has been solved, the fluctuations 
in are known for given time and position by using the following 
relations , 


V = V ) 
ex ex o 


V = V ) 
ey ey o 


V = V ) 
ez ez o 


-iK X 

e ^ COS (K X - o)t) 

r 

-iK, X 

e ^ C0S(K^x - (ct) 

-iK X 

e ^ C0S(K^x - o)t) 


Where, V ) , V ) , and V ) are initial values. 
' ex o ey o' ez o 


Appendix C contains the equations relating the other parameters 

(H, E, N , > V, , V, , V. , V , V , V ) to the known solutions of 

' e , i , n * ix * iy * i z * nx ' ny * nz 

V , V , and V . 
ex' ey' ez 
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Discussion 


A. Problems Involved 

Referring to the dispersion relation (3 ) , It can be seen that two major 
problems will be encountered when an attempt Is made to obtain the wave 
number (K) In terms of the disturbance frequency (u) for given field condi- 
tions. The first obstacle Is the expansion of the equation, which up until 
the present has been considered almost Impossible, and the second obstacle 
Is the solution of the eighth-ordered equation once the expansion has been 
accomplished. 

From a cursory observation of the equation this would not seem to 
be as complex as might have been Indicated above, but a closer observance 
shows that It Is a totally Impossible problem to approach by hand or with 
conventional computer techniques. 

To explain why the afore mentioned approach cannot be used, consider 
the first term of the general dispersion relation, 

,22 

2m C 2 C^c^c^c^ . 

Since C 2 contains eight separate terms containing several different 
2 

variables, then C 2 will contain at least thirty-six separate terms. Also, 

Cg and c^ contain thirteen terms a piece, and c^ and Cg each contain 
twelve terms. Allowing for the fact that a few of the terms in the 
different c's might be the same, a conservative estimate of the number 
of terms that would be present if the above expression was completely 
expanded is one hundred thousand (100,000) terms. Consider also that 
there are sixteen different variables present, and any one term of the 
100,000 terms could contain one or more of these variables. This should 
be satisfactory in explaining why the general dispersion relation was 
never obtained, or for that matter, could ever be obtained by a person 
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writing it out by hand. While the immensity of the equation is still 
being considered, it can be seen by careful observation that even computers 
with the most advance high speed printers would take at least ten hours 
and fifteen thousand sheets of paper to print out the equation in its 
entirety. An equation of this magnitude could only serve to obscure any 
information which might be beneficial, and therefore, the total dispersion 
relation will never be printed out in the expanded form. 

Since the total dispersion relation containing the sixteen different 
variables cannot be written out completely as at first considered, the 
next approach to be considered was to put in all values for the field 
parameters except o), oj , and co • This allows for the formation of a 

J. 1j 

dispersion relation for a given set of field conditions, while retaining 
the ability to vary the disturbance frequency and direction of propagation 
relative to the magnetic field direction. 

Still the final dispersion relation would contain too many terms to 
consider expansion by hand or by use of conventional computer programming 
languages which require that all variables be assigned a numerical value. 

The problem of how to expand the dispersion while retaining some of the 
variables was solved when the PL/1 FORMAC SYMBOLIC ZiATH FORMULA-MANIPULATION 
INTERPRETER was obtained from IBM Corporation. The capabilities of this 
system can best be explained by use of a direct quote from the FORMAC 

5 

language manual : 

The PL/l-FORMAC interpreter is an extension of the 
OS/360 PL/1 (F) Compiler. It consists of two modules 
of assembled routines, each module having about 70K 
bytes, which are added to a Systems Subroutine 
Library. FORMAC provides for the symbolic manipulation 
of mathematical expressions; e.g., the expression SIN(X), 
can be differentiated resulting in the expression COS(X). 
Expressions can contain variables, user-defined functions, 
constants to 2295 digits, and symbolic constants representing 
pi, e, and i (the square root of -1), as well as functions 
such as SIN, COS, EXP, etc. Expressions can be differentiated. 
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evaluated, replaced, compared, and parsed. Since FORMAC 
is a superset of PL/1, the facilities of PL/1 are available 
for program structure, loop control, I/O, etc. FORMAC can 
be used to obtain s 3 nnbolic solutions in problem areas which 
heretofore could only be approached numerically. 


B. FORMAC Program for Expanding Dispersion Relation 

As explained in the quote from the FORMAC manual, the use of FORMAC 
•is confined to the OS/360 IBM Computer, and PL/1 facilities are used for 
input-output and all loop control and program structure. 

The IBM OS/360-40 at Mississippi State University was used for 
all FORMAC runs. Due to the limited storage space at this facility the 
program was not the most efficient program, as far as time was concerned. 

The complete print-out of DISREL, the dispersion relation expanding 
program, is given in Appendix D, and a brief outline of the program 
follows. 

DISREL (FORMAC EXPANSION PROGRAM) 

(1) Read in all field parameters except cyclotron frequency 
and disturbance frequency as PL/1 variables. 

(2) Multiply by length and time factors to obtain minimum 
range for coefficients K^’s in the dispersion relation. 

(3) Transfer all PL/1 variables to FORMAC variables. 

(4) Define as variables all repeated multiplications, etc., 
to make program more efficient. 

(5) Obtain equations for numerators of the c’s. 

(6) Obtain equations for denominators of the c’s. 

(7) Define additional repeated terms to make program 
more efficient. 

(8) Obtain each of the twenty-five terms of the dispersion 
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relation. 03, and cu^ are still undefined 
numerically. 

(9) Atomize all variables which are not needed for further 
computation to release the storage space which they 
occupy In the computer. 

(10) Obtain cyclotron frequency and multiply by time factor. 

(11) Obtain and for given angle of propagation with 

respect to magnetic field direction. 

(12) Obtain each of the twenty-five terms of the dispersion 
relation with all variables now having numerical values 
and sum to give total dispersion relation. 

(13) Arrange coefficients of dispersion relation in descending 
order of powers of K. 

(14) Punch out the coefficients to be used In program ROOTS. 

The units used for expressing field parameters were MRS, but 
leaving the variables in terms of meters and seconds usually gave a 
very large range for the coefficients of the K^’s. For the frequencies 
10 ^ to 10 ^ and 10^ to 10^, the range from the smallest to the largest 
coefficient was of the order 10^^, and of course, this would present 
quite a problem when trying to solve for the roots of the equation. With 
careful selection of time and length multiplication factors, the range 
of the coefficients was decreased down to the order of 10^^ to 10^^, 
depending on disturbance frequency. 

The equations for the numerator and denominator of each of the c’s 
was obtained separately since the final dispersion relation was to be 
multiplied through by a common denominator to eliminate all denominator 


terms. 



99 


Each of the twenty-five terms of the" general dispersion relation 

was then obtained in expanded form, but o), and were not defined 

-5 9 

numerically. Then for each given w over the frequency range 10 to 10 , 
the angle of propagation relative to the magnetic field, Q, was varied 
from 0^ to 90^. and o)^ were then determined since they are dependent 
on the angle of propagation. With the defining of w, and over 
the ranges given above, each of the twenty-five terms of the general 
dispersion relation was obtained with all numerical values except K, 
the wave number for whose value the dispersion relation is to be solved. 

An example term is given below in both forms to show the importance of 
the FORMAC capabilities. 

TERM(13) = -.115E-09 #I WL^ -.171E-04 WL^ +5.17 #I WL^ 

+767985. m? K* +964289. #I WL^ -1112279. WL^ 

-1396589. WL^ K® +100037. WL^ K® +505672. #I WL^ 
+438393. WL^ -.792 #I WL^ -158732. WL^ 

+.638E-21 #1 WL^ +.948E-16 WL^ 

FTERM(13) = -.924E-04 #1 +4158831. #I +7.75E+11 #I -1.12E+12 

n K® +4.06E+11 n -637647. #I -13.7 +6.2E+11 

-8.94E+11 K® +8.04E+10 K® +3.52E+11 -li27E+ll 

+.513E-15 #I +.762E-10 

With the summation of the terms, the dispersion relation for a 

given set of field conditions at a given angle to the magnetic field is 

obtained for some given disturbance frequency. For example, consider 

the dispersion relation for propagation parallel to the magnetic field 

2 

for the case co = 10 , 
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DISPER = 22161. #I +4.26E+08 #I +1.04E+14 #I +3.8E+18 #I 
K® -5.42E+18 #I +1.96E+18 +1.22E+12 #I 

+274263. #I +9496042. +2.55E+12 +4.49E+16 

+6.66E+21 K® -9.46E+21 +3.49E+21 +2.17E+15 

+4.88E+08 +.0017 #I +261.112 

This equation can be treated as an eighth-ordered polynomial in terms 
of K-square when extracting the roots, instead of a sixteenth-ordered 
equation in K, 

C. ROOTS , Program Used to Solve Dispersion Relation 

Having expanded the dispersion relation and obtained an eighth- 
ordered equation in terms of K-square, the only remaining step is to 
solve for the roots of the equation. 

In selecting a method for solution of the dispersion relation and 
in using computer defined functions, the large range of the coefficients 
becomes the dominating feature. Taking into account this large and 
variable range, and also considering that the dispersion relation has 
both complex coefficients and roots, the method of solution chosen was 
the Newton-Raphson Iteration Technique.^ Since both overflow and under- 
flow occurred after only a few iterations, no computer defined functions 
were used, and all work was done in the double precision mode. 

The entire program with all the subroutines is given in Appendix E, 
and the main program ROOTS can be explained briefly as follows: 

ROOTS (Root Extracting Program) 

(1) Read in all coefficients of dispersion relation. 

(2) Read in time and length factors to be used to change 
units back to meters and seconds once the root has 


been found. 
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(3) Read in first root estimate. 

(4) Call subroutine for f(x) and f*(x), depending on order 

2 

of equation. (x = K ) 

(5) Using the f(x) and f*(x), a new estimate is obtained 
using the Newton-Raphson formula, 

f (x^) 

^i+1 " ^i " f’(x^) 

(6) The above iteration is continued until the relative 

-20 

error is less than or equal to 10 

2 

(7) Call square-root program to obtain solution to K . 

(8) Multiply by appropriate length factor so that and 

will have meters as unit of length. 

(9) Obtain phase velocity (tu/K^) and e-folding distance 
(1/K^) . 

(10) Call S 3 mthetic division subroutine and divide out root. 

(11) Repeat above procedure starting with step (3) until 
all eight roots have been obtained. 

There are ten subroutines used in association with the main program 
and the function of each is as follows: 

1. ATWLTF - Arranges terms in ascending order. This allows for 

the retaining of as many significant digits as possible 
and is therefore very beneficial due to the large and 
varied ranges of values obtained from the dispersion 
relation. 

2. XPOCPX - Calculates the square-root of a complex number. It 

is used to obtain and K^, once K-square has been 
obtained by Newton-Raphson method. 
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3. SYNDV - Synthetic division subroutine used to divide out 

each root as it is obtained. This reduces the 
order of the equation and assures that the Newton- 
Raphson iteration will not continue to Iterate 
back to the same root. 

4. SECOND, THIRD, FOURTH, FIFTH, SIXTH, SEVENTH, EIGHTH - 

Subroutines used to obtain f(x) and f ' (x) 
depending on the order of the equation being 
solved. 


Results 


The expansion and solution of the general dispersion relation was 
accomplished by employing the IBM 360-40 Computer for the FORMAC program 
(DISREL) and the UNIVAC 1106 Computer for the program ROOTS. 

The ionospheric field conditions considered for this study were. 


V . 

ni 

= 

1.1202 

X 

lO"^ 

coll/sec 

V 


1.9375 

X 

10-7 

coll/sec 

ne 





^in 

= 

2.2541 

X 

10-^ 

coll/sec 

^ie 

= 

1.7263 

X 

10-3 

coll/sec 

^ei 

= 

5.7783 

X 

10^ 

coll/sec 

V 

en 

= 

1.3072 

X 

10^ 

coll/sec 


0 ) = 2.8806 X 10^ rad/sec 

e 

= 1.5731 X 10^ rad/sec 
e 6 

(ji = 8.968 X 10 rad/sec 
c 

H = 5.1 X 10 ^ webers/m^ 

U. = 8.5097 X 10^ m/sec 
i,n 

U = 2.8158 X 10^ m/sec 
e 


These are the same conditions employed by Dahl and Murphree and 
4 

McClendon and Murphree , but they do not coincide with the field conditions 

1 2 

used in Tanenbaum and Mintzer's and Tanenbaum and Meskan's qualitative 
and approximate analysis. 

Before a strict analysis is made of the results of this study, a 
brief explanation is needed in regards to the plots shown in Figures 1 
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through 14. The curves in these figures are shown to be relatively 
smooth, but at some angles, especially at 0 = 0^, there were several 
e-folding distance points which were considerably different, and the 
phase velocity curves had one or two points that varied from the curves 
shown for 0 = 30° and 45°. The wave solutions whose phase velocities 
and e-folding distances varied from the curves shown were usually the 
sixth, seventh, or eighth root extracted from the dispersion relation, 
but in some cases the roots which were extracted third or fourth gave 
an erroneous e-folding distance. Since all numbers involved are quite 
large and varied, and since only five digits were retained from the 
FORMAC expansion program, it is possible that the error build-up in 
the program ROOTS is too extensive. The possibility that the points 
thought to be erroneous could be correct also exists since most occurred 
near significant points, such as collision frequencies, cyclotron fre- 
quencies, and electron or ion plasma frequency. So to make a statement 
concerning these points which do not coincide with the curves shown 
would require that additional dispersion relations be obtained for both 
the ionospheric field conditions used in this study and for other 
different ionospheric field conditions. 

Another point to be made before discussing the results is that 
all roots which yielded a negative and a positive were omitted. 

The reason being that this represents a wave with increasing amplitude, 
and since our system assumed constant energy, this result is not physi- 
cally possible. Only the physically possible wave modes are shown, 
and in all cases, the three or four roots which resulted in physically 
impossible wave modes were complex conjugate of the acceptable modes of 
propagation shown in Figures 1 through 14. 
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A. Propagation Parallel to Magnetic Field Direction (0 = 0^) 

The wave solutions presented consist of both the pure longitudinal 
and the pure transverse wave modes with an applied longitudinal magnetic 
field. The term dominant wave mode refers to the modes of propagation 
whose e-folding distances are much greater than the e-folding distances 
of the other wave modes. Figures 1 and 2 present the solutions. 

0 ) 5 There are five possible wave solutions in this range, 

and Mode I can be neglected since it has an extremely small e-folding 
distance and phase velocity. The other four solutions are really two 

double roots, with Mode II increasing up to the phase velocity of U. 

1 ,n 

Mode III, the other double root, increases up to the phase velocity 
equal to the acoustic velocity of the electron-ion gas mixture (U^) . 

V. < oj < V . : Five solutions exist, and Mode I, the single root 

xe ^ ® 

solution, can still be neglected due to small e-folding distance. The 
double root solution. Mode II, with phase velocity equal to ^ is 
now the dominant wave mode since the e-folding distance for Mode III 
has decreased significantly. Mode III is a double root solution and 
the phase velocity has increased from up to V^. 

< 0 ) < 0 )^: Only four possible wave modes exist within this 
range. Mode I, the solution neglected in th^ previous ranges, can 
still be neglected due to small e-folding distance. Mode II, the 
double root solution with phase velocity is just a single root 

in this range, and it is the dominant wave mode. Mode III, the other 
double root solution, has now split into two separate solutions, but 
neither wave solution is significant due to small e-folding distances. 
These are Mode III and Mode IV. 

0 )^ < CO < Again five wave solutions exist, and although the 


phase velocity has increased tremendously for Mode I, it can still be 
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neglected since the e-folding distance is small. Mode II, the double 

root solution with phase velocity U. , exists, but one wave solution 

X ,n 

has a very small e-folding distance and can be neglected. The other 
two roots which exist consist of Mode III, whose phase velocity levels 
off at the speed of light, and Mode IV, whose phase velocity approaches 
the speed of light. Mode IV can be neglected due to small e-folding 
distance. 

0 ) > Mode I, the dominant wave mode for this range, is 

propagating at the acoustic electron velocity (U^) . Mode III and Mode 
IV have phase velocities equal to the speed of light. Mode II, a double 
root solution with phase velocity also exists, and one wave can 

be neglected due to small e-folding distance. 

B. Propagation at Acute Angle to Magnetic Field Direction (0^ < Q < 90^) 
All of the modes of propagation for the angles shown in Figures 3 
through 12 are quite similar, and therefore, only one case need be 
discussed. The case to be considered is 0 = A5°. 

0 ) < Five wave solutions exist. Mode I, a single root solution, 

can be neglected due to extremely small phase velocity and e-folding 
distance. Mode II, one double root solution, levels off at phase velocity 
n’ Mode III, the other double root solution, increases in phase 

velocity to U^. 

V. < oj < V : Same set of solutions exist as in previous range. 

le ^ 

Mode I, the single root solution, can still be neglected. Mode II, the 

double root solution with phase velocity is the dominant mode of 

propagation. Mode III, the other double root solution, has an increase 

in phase velocity from to V^ and a decrease in e-folding distance. 

V < 0 ) < 0 ), : Four wave solutions exist, and Mode I, the single 

en X » » o 
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root solution, can still be neglected due to small e-foldlng distance. 

Mode II, the double root solution with phase velocity U. , has become 

l»n 

a single root solution and has a large decrease In e-foldlng distance. 

Mode III, the double root solution starting with phase velocity V', has 

split into two separate solutions which have small e-folding distances. 

These are Mode III and IV. 0 

< (ii < Four wave solutions exist, and Mode I, the single 

root solution which has been neglected in all previous ranges, is still 

negligible due to small e-folding distance. Mode II, the single root 

solution with phase velocity U, , is also negligible. Mode IV, the 

1 ,n 

solution with phase velocity greater than the speed of light, is also 

damped out. Mode III, the only solution that is not damped out, levels 

off at phase velocity equal to the speed of light. 

03 > 0 )^: Four solutions exist, and Mode I, the single root solution 

neglected for 03 < o)^, has leveled off at a phase velocity of U^. The 

Mode II wave with phase velocity of U is damped out. Mode III and 

1 ,n 

Mode IV exist with phase velocity equal to the speed of light. 

C. Propagation Perpendicular to the Magnetic Field Direction (Q = 90^) 

The wave mode solutions for the case of an applied transverse magnetic 

field consist of both the pure transverse wave and the coupled longitudinal 

and transverse wave. Figures 13 and 14 present the solutions. 

0) ^ V. : Seven possible wave solutions exist, and six of these 

^ ^ 

are given by three sets of double roots. Mode I, the single root solution, 
can be neglected since both the phase velocity and e-folding distance 
are small. Mode II, the double root solution which levels off at phase 
velocity is the most dominant wave mode. The other two sets of 

double root solutions, Mode III and Mode IV, have* increasing phase velocity 
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and decreasing e-folding distance as w increases. 

< oi < : Seven wave solutions exist, and Mode I, the single 

ie in 

root solution, can be neglected in this range. Mode II, the double 

root solution with phase velocity U. , is still the dominant wave mode. 

1 ,n 

Mode III, the double root solution which increases in phase velocity 
to Up, is also a prominent mode of propagation in this range. Mode IV, 
the third double root solution, can be neglected since the e-folding 
distance has become quite small. 

< 03 < Only six solutions exist, and as in the previous 

ranges. Mode I is negligible. Mode II, the wave solution with phase 

velocity U. , is a single root solution this range. Mode III, a 

1 ,n 

double root solution, has an increase in. phase velocity from to 

greater than V*. Mode IV, a double root solution, is still negligible, 
a 

^ei ^ ^ Five possible wave mode solutions exist, and Mode I, 

the single root solution, is still negligible. Mode IV is the only 

double root solution which still exists, but it is negligible. Mode II, 

the wave solution with phase velocity U. , and Mode III, the wave 

1 ,n 

solution with phase velocity greater than the speed of light, will both 

be damped out. But they are more dominant than the other wave modes. 

03 ^ < 0) < 03 ^: Six wave solutions are possible. The Mode II wave 

propagating at velocity U becomes a double root solution, but one 

i ,n 

wave can be neglected due to small e-folding distance. Mode I and 
Mode IV, the single and double root solutions neglected previously, can 
still be neglected due to small e-folding distances. Mode III is dominant. 

03 > 03 ^; Five solutions exist. Mode II is the only double root 
solution, and one wave solution can be neglected since it is pnly a 
standing wave. Mode II has phase velocity of Mode III, the 

solution with phase velocity equal to the speed of light, still exists. 
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Mode IV, the double root solution neglected previously, is now a single 
root solution with phase velocity equal to the speed of light. Mode I, 
the solution which has been neglected for all o) < exists and has 
phase velocity of U^. 


Comparison of Results Obtained by Others and the Present Study 
Figures 15 through 20 show the phase velocities of the wave solutions 
which exist. All other modes of propagation have been neglected due to 
extreme damping or some other condition, such as increasing wave ampli- 
tude in constant energy system. 

Referring to Figures 15, 16, and 17, a comparison of the results 
for the case of longitudinal waves propagating parallel to the magnetic 
field can be made. Figure 15 shows the physically possible wave modes 

which are not damped out as found by Tanenbaum and Mintzer,^ and Tanenbaum 

2 3 

and Meskan. Figure 16 shows the results obtained by Dahl and Murphree, 

and Figure 17 shows the results of this study. 

0 ) ^ Mode I has phase velocity increasing up to ^ for all 

three studies. Mode II has phase velocity increasing up to U for 

12 3 

Tanenbaum's, et al., * study and Dahl’s, et al., study, but increases 

to a velocity slightly greater than for the present study. 

< 03 < 03^: Mode I for all three studies has phase velocity 

remaining at Mode II phase velocity remains at U for Tanenbaum’ s, 

12 3 

et al. , * study and Dahl’s, et al., study, but increases up to U > 
for the present study. 

03-03^: Mode I exists in all three studies and the phase velocity 

3 

is equal to Mode II exists only in the solution by Dahl, et al., 

and the phase velocity is still equal to U . 


03. < 03 < 03 ; Mode II phase velocity decreases down to U, , 
X e ^ x.n 


which 
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is the same phase velocity as Mode I which still exists. This is true 
for all three studies. 

0 ) > 0 ) : Mode I and Mode II exist for all three studies and have 

e 

phase velocity equal to U* . Also> Mode III exists for all three studies 

1 ,n 

and has phase velocity decreasing down to and leveling off at U^, the 

acoustic velocity of the electron gas. 

Referring to Figures 18, 19, and 20, a comparison can be made of 

1 4 

the results obtained by Tanenbaum and Mintzer, McClendon and Murphree, 

and the present study for the case of coupled longitudinal and transverse 

waves propagating perpendicular to the magnetic field. 

0 ) £ ^ exists for all three studies and has phase velocity 

which increases up to and levels off at U. . Mode II also exists in 

all three studies and for Tanenbaum’s, et al. study the phase velocity 

increases from V up to For McClendon’s, et al.,^ study and the 

a a 

present study the phase velocity increases up to a value less than 
< 03 < 0 )^: Mode I has phase velocity of ^ for all three 

studies. Mode II for Tanenbaum’s, et al.,^ study has phase velocity 

4 

of V’. For McClendon's, et al., study the phase velocity also increases 
a 

up to and levels off at V' . For the present study the phase velocity 

a 

increases up to V, but for 03. > o) > 10, this mode of propagation is 
a X 

damped out. 

03 = 03^: Mode I still has phase velocity of ^ for all three 

studies. Mode II phase velocity decreases down to ^ for all three 
studies. 

03. < 03 < 03 : Mode I and Mode II exist for all three studies and 

X e 

have phase velocity of Mode III exists only for the present study 

and has phase velocity which decreases down to and levels off at the 
speed of light. 
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0) > 0)^: Modes I and II for all three studies still have phase 

velocity of Mode III has phase velocity equal to the speed of 

light for the present study. For Tanenbaum’s, et al. study and 

4 

McClendon^s, et al., study. Mode III has phase velocity decreasing 
down to and leveling off at the speed of light. Mode IV for all three 
studies has phase velocity decreasing down to and leveling off at U^. 

Conclusion 

The significance of this study is that the general dispersion 
relation considering small amplitude oscillations in a three-fluid 
medium has been expanded and solved without any approximations being 
made. Prior to this study, no solution, approximate or otherwise, had 
been obtained for the general dispersion relation. 

With this capability of being able to solve equations of extreme 
algebraic complexity, the only obstacle which remains in the way of 
adding additional conditions to the original continuity, momentum, and 
energy equations is the tedious substitution procedure needed to 
eliminate all variables until only three equations with three unknowns 
remain. Any of the variables could be retained, and in this study, the 
three variables were the components of the electron fluid velocity. 

With the solution of the general dispersion relation for the 
complex wave number, the modes of wave propagation are known for any 
condition desired. The real and imaginary parts of the wave number 
provide a complete description of the wave propagation by giving the 
velocity and damping characteristics of each wave solution. 

Round-off error, due to the sources mentioned^ previously, exists 
in the results of this study, but most of these inaccuracies can be 
eliminated by use of more efficient and accurate computer techniques. 
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Figures 15 through 20 show there is very good agreement between the 

1 2 

results of this study and the work done previously by Tanenbaum, et al,, * 

3 4 

Dahl, et al. , and McClendon, et al., for the solutions which exist and 
have large e-folding distances. Exact agreement was not expected since 
there was error build-up in the method employed in this study and in 

4 

McClendon* s, et al. , work. Although no error build-up should occur for 

12 3 

the methods employed by Tanenbaum, et al., • and by Dahl, et al. , the 

dispersion relation which they solved was an approximation. The equation 

3 12 

used by Dahl, et al. , and by Tanenbaum, et al., • is a third ordered 

equation in K-square. The exact dispersion relation is a fourth ordered 

equation in K-square and has quite a number of terms more than those 

1 2 

shown in the dispersion relation used by both Tanenbaum, et al. , * 

3 

and Dahl, et al. 
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FIGURE 4. E- FOLDING DISTANCE VERSUS 
FREQUENCY FOR ^ = 15" 
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FIGURE 7 PHASE VELOCITY VERSUS 
FREQUENCY FOR 0=45* 
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FIGURE II. PHASE VELOCITY VERSUS 
FREQUENCY FOR 0= 75® 
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FIGURE 12. E- FOLDING DISTANCE VERSUS 
FREQUENCY FOR ^=75** 
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APPLIED FREQUENCY, RADIANS /SECOND 

FIGURE 13. PHASE VELOCITY VERSUS 
FREQUENCY FOR ^=90* 
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FIGURE 15. TANENBAUM'S PHASE VELOCITY 
VERSUS FREQUENCY FOR 9=0 
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FIGURE 16. DAHL'S PHASE VELOCITY VERSUS 
FREQUENCY FOR ^ = 0° 
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FIGURE 17. BROWN’S PHASE VELOCITY VERSUS 
FREQUENCY FOR 9 * 0 ° 
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FIGURE 18. TANENBAUM'S PHASE VELOCITY 

VERSUS FREQUENCY FOR 9 - 90 ^ 
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FIGURE 19. MfCLENDON'S PHASE VELOCITY 
VERSUS FREQUENCY FOR 9 * 90 ° 
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APPENDIX A 

The substitution procedure employed in the derivation of the deter- 
minant of the coefficients of V , V , and V , 

ex’ ey’ ez 


Maxwell's Equations, 


’“■if 

,XH - ^ + i If 


Continuity Equations, 


Dp 


- Pg i a 
Dt e,i,n 


V • V 


e,i,n 


Momentum Equations , 


DV . V XH 7P _v V 

= — (E + -^) ® - V , (V - V.) 

Dt m c p ei e i 

e e 

- V (t - V ) 
en e n 


e - ^i™ ^^i ^ 

^ (E + - V ) 

Dt c le 1 e 


- V. (V . - V ) 
in i n 


DV VP 

n n 


Dt 






- V (V " V ) - V , (V - V J 
p ne n e ni n i 


Ideal Gas Law, 


P . N = CONSTANT 

e,i,n e,i,n 


Now consider small perturbation. 


E = E' 

A 

V e V 

e,i,n e,i,n 

N « N- + n 
n 1 n 


H = H + h 
o 

P . = P + p . 
e,i o e,i 


P. = Pi + P 


n 


N = N + n ^ 
e,i o e,i 
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I? " ll " ° 

Now, Maxwell's Equations, 


7XE = VXE'' = - -- |r (h 1 + h) 

Cot O 
• ■ C 9t 

3E 3E , . ^ . 


(1) 

9h 

X 

= 0 


9t 


1 3h 

9E 

(2) 

i_JL 

c 9t 

z 

“ 9x 


, 9h 

9E 

(3) 

_1 z 

“ "c 9t 

I 

9x 


VX(H + h> 
o 


^ [(N^ + n^Vi - (N^ + n^)v;i 
1 9^' 


' c 9t 


9h 9h 


AttbN 

[(v: - V )i + (VI - V ) 

c '• ix ex iy ey 


j + "iz - ■" i 


(4) 4"eN^(Vi^- v;^> + — - 0 

9E' 9h 

(5) 4TreN^(V^y - v;^) + = 0 

9E' 9h 

(6) 4.eN„(VJ^ - v;^) 


Continuity Equations, 
9 r 


— [m^(N^ + n^)3 + V; . V[m^(N^ + n^)] - 


- m (N + n )V • V' 
e o e e 


m - - m N (V • V) 

e 9t e o^ e 
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3n 

ar ■ 

• V') 
e 

3n. 

A 

ar ■ -■'o''' 

• vp 

3n 

A 

TT - 

• V) 
n 


(7) 

( 8 ) 

(9) 


3n 

Tt 

3n 


3V' 

® -N — ^ 
o 3X 


.. 9V 

_i = _N _iS 

3t o 3X 


3n 


3V* 

n „ nx 
3t ^1 3X“ 


Momentum Equations, 


3V' . 

-± + r 

3t ^ e 


^ _e ^ V' X(H + h) 

W = — [E' + — 2 

® “e 


] 


+ P^) 
o e 


- n> - 


av' > 

e 


e o 

V’ X H 
e Oi 


7p 


■1 s V . (V' - V' ) - V (V* - 

^ m N ei^ e i' en^^e tl' 
e o 


It [V' i + V’ j + V £] = - — [(E'i + E'j + E’fe) 

3t ex ey*^ ez ^ m_ '• x y** z 


(V H - V H ) (V H - V’ H ) 

+ ey oz ez oy £ ^ ez ox ex oz ■: 

c c ^ 

(V H - V’ H ) , 3p 

+ ex oy ey ox ^e £ 

c p 3X 

e 


- \± '''I- - + wi. - 


ey ly' 


ez iz 


- V [(V - V’ )i + (V* - V )j + (V - V' )k] 

en *• ex nx' ' ey nx'** ' ez nz*^ 


( 10 ) 


9V' 3p 

— + — [E' + —(V* H - V' H )1 + — = 

e 


3t 


m_ *• X c ' ey oz ez oy' 


m N 3X 
e o 


A > 
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Likewise 


+ V .(V - V! ) + V (V - V' ) ■ 0 

ei' ex lx en' ex nx"^ 


3V* 

(11) -Tr^ + — [E' + -(V H - V H )] 

' ' 3t m y c ez ox ex oz 

+ V j (V - V! ) + V (V - V ) - 0 
ei ey iy en ey ny 


( 12 ) 


av 


— + — [E' + -(V H - V H ^)] 


at z c' ex' oy ey oz' 


+ V .(V* - Vl ) + V (V’ - V' ) = 0 

ei ez iz en ez nz 


(13) 


^ 1 1 3P^ 

— [E' + -(Vl H - VI H )] + 
m , ^ X c iy oz Iz oy ■' ax 

i '' ' 1 o 


at 


+ (Vl - V ) + V. (Vl - V' ) = 0 
ie ix ex in ix nx 


av’ 


(14) T-^ - — [E' + -(Vl H - V' H )] + V. (Vl - V' ) 

' at m . y c iz ox ix oz ■* ie iy , ey 


+ (VI - V* ) “ 0 
in iy ny 


(15) 


avl 

iz e 


at 


[E' + -(Vl H - V' H )] + V. (V' 
z c IX oy iy ox ■' ie xz 


V ) 

ez 




3V , 3p 

^ + sV -Sr + 

n 1 


= 0 


aV 

(17) + V (V' - V' ) + V .(V* - Vl ) = 0 

^ ^ at ne ny ey' nl' ny iy 

av’ 

(18) -;r-^ + V (V’ - V’ ) + V ^(V' - V' ) = 0 

' ' at ne nz ez ni nz iz 


1 3P ^ U 9n 
mN ax N 3X 


Using the relationship, 
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And considering the form of the solution to be, 

1(KX - tot) 
e 

The eighteen equations now have the form. 


( 1 ) 

(3) 

(5) 

( 6 ) 

(7) 

( 10 ) 


h = 0 

X 


h = nE 
z y 


( 2 ) 

(4) 


4ireN i 

E = —r y T (V - V. ) 

y a)(l-n2) ^ ey ly 

47reN i 

E 7T"St (V - V. ) 

z 03 (l-n-^) ez iz 


kN 

n = — - V 
e 0 ) ex 


h = -nE 

y z 

47TeN i 

E = — (V - V. ) 

X 0 ) ex XX 


kN 


( 8 ) 


n. 

1 


V. 


W XX 


(9) 


kNj 

0) 


(v - ioj)V - V .V. - V V - + — E 

e ex ex xx en nx T ez m x 

e 

iU^n k 


(11) 

( 12 ) 


eE 


(v - ico)V - V .V. - V V + oj^V + = 0 

e ey ex xy en ny L ez 

eE^ 

(v - iw)V - V .V. - V V + 03^V - co^V + — ’ 

e ez ei iz en nz T ex L ey m 


= 0 


tOrp eE 

(13) (v. - ito)V. - V. V - V. V + — V. 

X XX xe ex xn nx m xz m, 

X 

iU?n.k 

+ — = 0 
N 


eE 


(14) 


1 

>> 

•H 

> 

— >». 

3 

•H 

1 

V. V 
xe ey 

(15) 

^^i 

- ito)V. - 
iz 

V. V 
xe ez 

(16) 

<^n 

1 

> 

3 

•H 

1 

V V 
ne ex 

(17) 


- ito)V - 

ny 

V V 
ne ey 

(18) 


- lto)V 

nz 

V V 
ne ez 


0 )™V . 03 - V . eE 

^ ^ L ^y z ^ Q 

la IE m . 

1 


iU^n k 
n n 


= 0 


V 

nx 


0 
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Now, put in the values of E (Eqs. 4,5,&6) and n . (Eqs. 7,8,&9) and 

e ,x ,n 

obtain, 

iU^k^ 

(10) ( — - — + — - + V • - ioj)V - V V 

0 ) ( 1 ) e ex en nx 


( 11 ) 


- (v , + — ^)V, - U3„V =0 

ei 0 ) ix T ez 

.2 .9 

10) 10)^ 

<'-e - 


- V V + olV = 0 
en ny L ez 

i0)2 




(^2) (-e - - ("el - "en'^nz 


(13) 


+ u)„V - =0 

T ex L ey 

iU?k^ lo)? io)? 

( — - — + — - + V. - ito)V. - (v. + — ^)V 

0) 0) 1 XX le 0) ex 


(14) 


- V. V + — V, =0 
In nx m iz 


XOJ 


lo)? 


(-77 — 5T + - (v. + — 7T — ^)V 

^ 0 )(l-n^) 1 iy le o)(l-n2) ey 


(15) 


- V. V -V. =0 

in ny m xz 

iu)? iu? 

(rr^T^ + V,. - i(*))v.„ - (v,„ + ..,v_i - b - v )v. 


^w(l-n2) ^ "i 


f » \ V . -r y-z V 

iz le o)(l^n^) ez 


-V. V ^V, +-=^V. =0 

in nz m XX m xy 

iU^k^ 


(16) 

( “ 

- + V - 

• io))V 

• V V 

0) 

n 

nx 

ne ex 

(17) 

(v - 

iai)V 

- V V 

- V .V. 

n 

ny 

’ ne ey 

ni ly 

(18) 


ito)V 

nz 

- V V 
ne ez 

- V ,V. 
nx xz 


Now solve equation (16) for equation (17) for equation 

(18) for V , 
nz' 


(16a) V = — (v V + V ,V, ) 

nx Y 2 
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(17a) V * — (v V + V .V. ) 
' ■' ny Yi ®y 


(18a) V - — (v V + v„.V ) 
' ^ nz Yi «e ez ni iz 


Put equation (16a) into equation (10) and solve for ^ 

■U2k2 _ (,2 + ^,2 _ en ne 


lx 


-ito 


V - 

en ni 


, 0 )^ - iwv . + 

L e ei Y 2 


(- 


Y2 


+ V )V - o)„V 1 
e ex T ez J 

(10a) V 


ix 


C- icow^ 

— V + V 

ex ez 


Put equation (17a) into equation (11) and solve for 


V. 

ly 


-i(ii 


0.2 

2 

d)^V 

e 

1 - 

.(i-ti^) 

J 

Yl 

io)2 

iuv 


- 10)V . 

ex 


(v - io) 
e 


en ne^^ ^ o) 


j(l-n ) ey L ez 


(11a) V. 

xy 


=2 ey 


XOJO), 

V 

Co ez 


Put equation (18a) into equation (12) and solve for V , 


iz 


-XO) 


(Jj^v V . 

e . en nx . 

1 -ri ^ + X(0V . 

L(l^) Yi ei. 


u_V - w , V 

T ex L ey 


+ (v- -h i 
e 


(l-n2) 


to^v V 

en ne 2 

(jj^ 


Yl 


) V 


ez 


XijU(0_ 


(12a) V. ^ V 

xz ez 


^ V + ^>V 

ex ey 


Put equations (10a), (16a), and (12a) into equation (13), 

iu? iU?k^ Cc iu)ii) 

(v. - id) + — + —) (- — V + ) 

X 0) dj ex ez 
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luf 10 - c, 

- (v, + — ^)V + — ( ^ V 

le u ex m C2 ez 




. Ce lOJU, 

^ [v V +v,(--^V + 

Y 2 '■ ®x ni ex c 


lUU- Icoo}^ 

=■ V + = V ) 

C 2 ex C 2 ey' 

0 


lwu)_ ^ 

)]V = 

Cl ez JJ 


(13a) 


CcC, 

- 2 -i .+ — + 

c. m me. 


iojUi^c^ luaijCg 

c, me. I ez 


Put equations (11a ) , (12a) , and (17a) Into equation (14) , 


ex 


mCo 


ey 


(v . - lu) + 


lu" 


luoi. 


^ a,(l-n2)' ■ 


-) (- V, 
'2 


V ) 
ez 


- (''le 


1 .J 


-ml 


(14a) 


o)(l-n^) 

io)V 

ne „ 


') V - -Jl (- V 
ey m 


ez 


iwo)^ 


C2 




ICLlV 


ni 


1 ( 1 ) 0 )^ 


(- 


ey 

Yl 

®2 ®y 

0)^0) 0)_ 


c. C-C, 

L I)V 

^ i. 

+ 

^ V 

X 2 6 4 

'rw r-> 


V ) 
ez 


- 


— V ) 
'2 ®y 

0 


0 )^ 0 )^ 

+ ^ V 

me, ey 


ItOO). c- 

+ (— - c, ) V =0 

c. m H ez 


Put equations (10a ) , (11a ) , (12a ) , and (18a) Into equation (15) , 

C^ luoirp Icou^ 

- V ^ V + ^ V ) 

C2 ex C2 ey 


10)2 

(v . - lu) + 

^ 0)(l-n2) 


•> (- 7^ 

C2 ez 


Icoj 0)_ C. 1(UU)„ 

- (v . + — ) V ( ^ V + 

le /, 2\ ®z m c, ex c, 

oj(l-n^) 1 1 


V ) 
ez 


“t 

+ Jk ( i V 

m C2 ey 


iajo)_ io)V V , 

L V ) - ( »e_i!L) V 

ez Yi ez 


iwv. V , c, 
in ni . 6 ^ 

Yl ez 


iojo)- icoto 

V + V ) 

Cry ex ey 


c, ia)03 c. 

(15a) (Icoio ) (-^ - -r> V , + (-T^) (®A - 7^) V 

T mCji^ C2 ex C2 4 m 


ey 


+ ( 


^6^4 


‘m 


2 2 


me. 


2 2 

-) V =0 

mc^ ez 
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The original set of eighteen equations containing eighteen unknowns 
has now been combined into three equations with three unknowns. Equations 
(13a), (14a), and (15a) are three coupled equations for ^ey* 

In matrix form these equations are given by, 
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APPENDIX B 

The dispersion relation in terms of the C's is obtained by 
expanding the determinant derived in Appendix A. This is the deter- 


minant of the coefficients of V , V , and V , and to have a non- 

ex ey ez’ 

trivial solution the value of the determinant must be zero. 


'll 


'21 


31 


'12 


'22 


32 


'13 


23 


'33 


= 0 


^12^23 ^^3l”^13^ + + ^^^1^23 


A A^ 
^33 12 


= 0 


1st TERM, 


^^3l"'^13^ 


= ia)03„ 


- iuto_ 

' *^3 ^6 ' 

T 

. ^1 ^^2 . 


= IWOJ, 


T 


+ _f3 1 

Lmc^ mc2 C 2 c^ J 


-ioju. 


^ 12^23 


^12^23 *'Sl“'^13^ 


= ( —) 

mc2 

(- 

c > ^"4 

C 2 ‘t 

- 

^r> 


^^4 

•=6 

1 


2 

[mc2 

2 

mc2 J 




"6 1 

2 

L“‘^2 

2 2 
m C 2 




1 ' 



1 mc^ mc^ 


C 

1 




r' 

=4^=5 . 


f 6 

2 

^^4 

2 2 ■ 

m c^C 2 

2 3 
m C 2 

3 " 
mc2 


c 

2 

4‘=« 

> J. 

'^3‘^e 1 




mc^C2 


3 2 33 23 2 2 
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4 2 2 
a>^a)Ja}£ 


'■=6 


. 3 3 
Lm c„ 


C5C6 


m 


2c, 

4 6 

2 3 
m C2 


-C,C--C^C. Cy 

. 4 5 3 6 4 

+ 22 “^; 

m 


. ^3^4 “ 
2 

mc^C2 J 


2nd TERM, 


^11^33 


r^i 

[m 


5 ^ T 


me 


2 J 


m 


^1^2 


m 


C-CyC, CiW^OJ^T 

1 4 6 1 L 


^4^6 


2 2 

4)^0)^n 


2 2 
mc„ 


^2^3^5 


2 2-1 

4)^0)£ 

mCi 


2 2 


mcr 


^3^4^5^6 

^1^2 


'3'-5' 


2 

m O 2 

2 

m 

+ 

me^ 

2 

m 

2 2 

c^e^(o (0^ 

22 4 2 2 

c^egCJ^coj a)^a)£(o£ 

.‘^2 

2 

moj^ 

2 

mo2 

2 2 
m 02 


-A A 
13^31 


- (iwo)^) 




:i6 

me 


2 J 


(io)0)^) 


::5 

me 


--^1 

1 ^^2 3 


4 4 
OJ^COj 


m c^C2 


2 2 


C3C5 


LinCi 


C3C4 




c, c, 2 
12 m c^C2 


*^4^6 


me. 


(A11A33-A13A21) 


030^0506-0)^(1)^030 ^ Oi 02+2 o)^ 0)^ 

1 T 


c^02 


m 


030305 


mo 


c^c^C6 

+ ;; + 


me. 


4 4 2 2 

0) ^0)^-0) "^a)=;e^c 


2 

T''5'"6 


2 

m c. 


2 2 
m C2 


^22^^1lS3"^13Sl^ 


2 

m 0^02 

e^e2+2a)^a)^e2+2a)^a)^Cj^ 3a)^a)^o)^ 


m 


3 

m e. 


mc^Cz 


22 4422 44 


me. 


3 

m c- 


3 3 
m e2 


6 4 2 
a)'^aj£o)| 

TT' 

m e^ 


-2 o )2 o )2 c 305- o 2 c 305 2 u >^ a ^ lc ^ c ^ c ^ 


2 

m c. 


6 4 2 4 2 2 


m e^e 2 


2 

m c., 


2 2 
m e 2 


4 2 2 2 2 


2 3 
m e 2 


me. 


^'=l'=4‘=6 


m 



143 


3rd TERM» 


to 2 u, 2 c^C 5 c 2 -io‘*a)Jc^C 6 -a 3 ‘*o);;c 3 C 5 
+ s s + 


2 2 
m c^C 2 


me. 




^ 11^3 


■[■ 


2 2 2 

3 2 
m C 2 


2 


2 

1®2 


‘=1=2 

0)2u,2 1 

(1.0), )2 [ ^ - 

=6 

m 02 J 

^ L '2 

mc2 

0303 

1 F 

2 C 4 C, 

C-1 

me, 2 " 

2 

1 

2 J L 02 

mc 2 

o)**o)^o)^o3 loi^a^Qc 



3 3 

m C2 


2 w‘*(i)?u)icy c, u2(i)^c_c-c3 
, L T 4 6 , L 3 5 6 

' Vl ' o o 


2 2 
m C2 

u^u^c, c? 
L 1 4 


2 3 

m C2 

a)‘*aj 2 aj 2 c^ 


mco 


m c^C 2 


me. 


2 to 2 g 32 c 3 C^C 5 C 6 ^ 


mc^C 2 


C1C2 


2 2 
m C 2 


4th TEKM, 


-A 

* 33*12 


r *=2 =4‘=6 

2 2 
■ I-* 

1 

,-“S“l.,2 


+ 

+ ^ 

( ) 

[“ ' =2 

mc2 

moi J 

moz 

r o)**o)2o)2 

CM( 

3 
J- 1 
3 

VO 

3 

0)®0)iio)? 

4 2 2 

iJi^ C , C. 1 

1 T L 

L i 

T L 

T L 4 6 

3 

3 3 

3 2 ^ 

2 3 

L “ ^2 

m O2 

m 0^02 

m 02 


3 2 

Combine all terms and multiply by (m C 2 ) , 


- 2 2 

2 m C 2 C 3 C^C 5 Cg 


DISPERSION RELATION 

32 4 o22 ^2222 

- m 030 ^ 030 ^ - mc 2 C 3 C 5 - 2 mc^C 2 C^Cg + m c^c^Cg 


24 22 3 222 22 2 2222 

+ “t° 1°2 ” “ “t® 2 ° 5°6 ““ “t‘^ 4 ‘^ 5‘^6 " “ “ “t‘^ 2 ‘^ 3^^4 


2 2 


j. -3 2 2 ^ 2 . „ z z z z z z z z z z z z ;< 

" 2 ®« “tCiC 2 ‘^ 4‘^6 “ “t® 3 ‘^ 4°6 ■*■ “l®i ‘^2 “ “ 

222 22 2 322 2 422 
- 2mu UjC2C^c^ + mto 0)^^030303 + m u) 0)^^030^03 + 2o) u,j,0)j^ej^O2 


2222 2222 22222 


CNJ VO 
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4 

- mo) 

4 

- mo) 


2 2 4 2 2 


4 4 2 

to iOjC2 


4 4 ,4 4 2 

mto o)^c^Cg + uj tOj^c^ 


4 




0 
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APPENDIX C 


Once the wave number k has been obtained for given u, then the 

values for '^ez known for any given time and position. 

To determine the values for the other parameters (h.h.h.E.E. 

x’ y* z* X* y’ 

ht ”e.i,n* ^ix* '^iy* \z* \x* V* \z^ > following relations 
are used, 

“•It X 
—Ic X 

V ■ % o ® ^ COSft^k-ot) 

’ez ■ ''ez o ® ^ COS(kjX-»t) 

Ce iUtO 

V . — V + V 

ix ex ez 


V, ^ V 


iy 


=2 


iOJCD^ 


C2 ez 


c- iojo). 

o . L 


iu)U)„ 


V, V + 

=2 -2 


iz Co ez Co ey c„ ex 


ioj 


nx Yr 


io) 


(y 


-) V + 


'2 

iwto, 


ny Y 


1 -L 


ne Cj^ ex 


(y V 

'ne C2 ey 


T 

T-^ V 

ez 


'1 

±(iiUi. 


C2 ez 


iu 


nz Yi 


c, ia)[o_ 

O \ tt ii 


ia)to„ 


Cy.. - V_ + 
2 


ne Co ez C2 ey C2 ex 


i 4 ireN 
o 

uj(l-n^) 

iAireN 


E 


(V - V, ) 
ex ix 


(V - V. ) 


y cuciV) ®y 
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i47reN 

— 1- (V 

wCl-n^) ez 




N 


N. - 


N 


kN 

— - V 
0) ex 

kN 

— — V 
to '^ix 

kN 

— 2. V 

to nx 


-i£E 

0 ) z 


0) y 



APPENDIX D 


LISTING OF FORMAC EXPANSION PROGRAM 
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disrel: proc OPTIONS(MAIN) j 

FORMAC^OPTIONS? 

OPTSET(PRINT ) i 

OPTSET(EXPNDfLINELENGTH=120) I 

DCL SYSPNCH OUTPUT STREAM FILE» 

DCL(L»ME»MI»NE»NN»NI»M»MSQ»MCU) FLOAT DECIMAL* 

ON ENDFILE(SYSIN) go to QUIT} 

read; get data; 

/♦routine to change to appropriate units of time and length^/ 

IF FACTIME=0 THEN GO TO SAME* 

IF FACTIME=1 THEN GO TO DESI? 

IF FACTIME=2 THEN GO TO CENTU 
IF FACTIME=3 THEN GO TO MILLl* 

IF FACTIME=4 THEN GO TO MINuS4} 

IF FACTIME=5 THEN 60 TO MINUSS* 

IF FACTIME=6 then GO TO MICRO} 

IF FACTIME=7 then GO TO MINUS?} 

IF FACTIME=6 THEN 60 TO MINUSS* 

IF FACTIME=9 then GO TO MINUSg} 

IF FACTIME=10 THEN GO TO MINUSIQ} 

DESi: W=W*1»0E-1} WE=WE*1.0E-1} WI=Wl^l.OE-l» 

VEI=VEIfl.OE-l} VEN=VEN*1.0E-1} VIN=VIN*1 . 0£-1 * 
VNI=VNI^X*0E-1} UE=UE^1.0E-1} Ul=UI+l . oE-1 } UN=UN*1 • OE-1 * 
CL=CL+1.0E-1} 

GO TO SAME} 

CENTi; W=W*l«0E-2} WE=W£+1.0E-2} WI=WI+1 . 0E-2» 

VEI=VEI*1.0E-2} VEN=VEN^1.0E-2} VIN=VIN*1»0E-2 « 
VNI=VNI^l.0E-2» UEsUE+l.OE-2; Ul=UI*1.0E“2} UN=UN*1.0E-2} 
CL=CL*X.0E-2} 

GO TO SAME} 

MXLLi: W=W*X.0E-3} WE=WE^X.0E-3} Wl=WUX.0E-3» 

VEI=V£I^X,0E-3} VEN=VEN^X*0E-3} VIN=VIN*X . OE-3; 
VNI=VNI^X,0E-3» UE=UE^X.0E-3} Ul=UI*X.0E“3} UN=UN*X • OE-3 » 
CL=CL+X.0E-3} 

GO To same; 

MINUS4jW=W*X.0E-4} WE=WE^X . OE-4 } WI=WI^X . OE-4 » 

VEI=V£I^X.0E-4> VEN=VEN*X.0E-4} VIN=VIN*X . OE-4 } 
VNI=VNI*X*0E"4J UE=UE^X.0E-4} Ul=Ul*X,0E-4; UN=UN*X*0E“4} 
CL=CL^X.0E-4} 

GO TO SAME} 

MINUS5;W=w»X.0E-5} WE=WE*X.0E-5} Wl=Wl^X.0E-5> 

VEI=V£l^X.0E-5> VEN=VEN*X.0E-5} VIN=VIN^X. 0E-5* 
VNI=VNl*X.0E-5» UE=UE^X.0E-5} Ul=UI*X . OE-5} UN=UN*X«0E-5} 
CL=CL^X.0E-5} 

GO TO SAME} 

micro: W=rt^X.0E-6} WE=WE^X.0E-6} Wl=Wl*X,0E-6} 

VEI=V£I*X.0E-6» VEN=VEN*X.0E-6} VlN=VIN*X . OE-6 } 

VNI=VNI + X.0E-6> UEsUE^X.OE’-O} UI=UI + X.0E-6} UN=UN*X* OE-61 
CL=CL^X.0E-6} 

GO TO SAME} 
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MINUS?: w=W*ltOE-7» WE=WE*1.0E-7; WI=WI*1 . 0E-7J 

VEI=VEI*1.0E-7? VEN=VEN*1.0E-7; VlN=VIN*l . OE-7 J 
VNI=VNI*1.0E-7» UE=UE*1.0E-7» Ul=Ui*l . 0E"7 » UN=UN*1 . OE-7 ? 
CL=CL*1.0E-7» 

GO TO same? 

MlNUSa: W=W*1.0E-6? WE=WE*1.0E-a? WI=WI»I.0E-8? 

VEI=VEI*1.0E-8? VEN=VEN*1.0E-8? VIN=VIN»1 . OE-8 ? 
VNI=VNI*1.0E-b? UE=U£*1.0E-8? Ul=Ul*l, OE-8? UN=UN*1 . OE-8 ? 
CL=CL*1.0E-8? 


GO TO same? 

MINUS9: W=W*1.0E“9? WE=WE*1 t OE-9 ? WI=WI*1.0E-9? 

VEI=VEI*1.0E“9? VEN=VEN»1.0E-9? VIN=VIN»1 * OE-9 ? 
VNI=VNl*1.0E-9? UE=UE*l.0E-9? Ul=UI+l . 0E“9 ? UN=UN*1.0E-9? 
CL=CL*1.0E-9? 


GO TO same? 
MINUSIO: W=W*1.0E-10? 
VEI=VEI*1.E-10? 


SAME 


? W£=WE*1.0E-10? WI=WI*1.0£-10? 

VEI=V£I*1.E-10? VEN=VEN*1.0E-1o? VIN=VIN*1.0E-10? 
VNI=\/NI*1.0Ei0? UE=UE*1.0E-l0? UI=Ul*l , OE-10 ? 
UN=UN*1.0E-10? CL=CL*1.0E-10? 

ie; if faclen=o then go to okay? 

IF FACLEN=-1 THEN GO TO PiO? 

IF FACLEN=-2 then GO TO PlOO? 

FACLENs-3 THEN GO TO PIOOO? 

THEN GO TO MIO? 

THEN GO TO MlOO? 

THEN GO TO KM? 
then GO TO M10T04? 

THEN GO TO M10T05? 

then go to mega? 


IF 

IF 

IF 

IF 

IF 

IF 

IF 


FACLEN=1 
FACLEN=2 
FACL£N=3 
FACLEN=4 
FACLEN=5 
.. FACLEN=6 
PiO: UE=UE*1.0E01? 

CL=CL+1.0E01? 

GO TO okay? 

PlOo: ue=ue*i.O£02? 

CL=CL*1.0E02? 


UI=UI*1.0E01 ? UN=UN*1.0E01? 

UI=UI*ltOE02? UN=UN*1*0E02? 


GO TO OKAY? 

PIOOO: UE=UE*1.0E03? 

CL=CL*1.0E03? 

60 TO OKAY? 

Mio; ue=ue*i.oe-i? 

CL=CL*1.0E-1? 

GO TO OKAY? 

MlOO; UE=UE*1.0E-2? 

CL=CL»1.0E-2? 

GO TO OKAY? 

km; ue=ue*i.qe-3? 

CL=CL*1.0E-3? 

GO TO OKAY? 


UI=UI*1»0E03? 


UI=UI*1^0£“1? 


UI=UI*l»0E-2'? 


UI=UI*l»0E-3? 


UN=UN*1.0E03? 

UN=UN*1.0E-1? 

Un=UN*1.0E-2? 

UN=UN*1.0E-3? 


M10T04: UE=UE*1.0E-4? UI=UI*1 »0E-4? UN=UN*1 . OE-4 ? 

CL=CL+I.0E-4? 

GO TO OKAY? 
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M10T05; UE=UE*1.0E-5J UI=UI*1.0E-5J UN=UN*1.0E-5» 

CL=CL*1.0E-5» 

GO TO okay; 

mega: ue=ue*i.oe-6: ui=ui*i.oe-6; un=un*i.oe-6; 

CL=CL*1.0E-6; 

okay: /* CHANGING PL/1 VARIABLES To FORMAC VARIABLES ★/ 

LET ( wE=nw£n » WI=nWln ; UN=nUNn ; UI=«Uln » UE=nUEn ; W=nwn ; 
VEN=nVtNn; VEI=nVEI«; VlN=nVlNn; VNl=»VNlw» 

ME=nMEn I M I=nMIn » H=nH» i CE=HC£n ; CL=nCLa» 
NE=nNEn;NN=nNNn) : 

/♦ BASIC EQUATIONS NEEDED TO RUN PROGRAM EFFICIENTLY ♦/ 
LET( NI = NE» M=MI/ME; 

VIE =(VEI*NE)/{M*NI) f VNE = ( VEN*NE > / (M*NN) » 

VE =vei+ven; vi=vie+vin; vn=vne+vni; 

UESQ=U£*+2; UISQ=UI**2; UNSq=UN**2» 

WESQ=WE**2f WlSQ=Wl**2f ClSQ=CL**2; 

MSQ=M**2f MCU=M**3» WTSQ=WT*«2; 

WTQU=WTSQ*^2f WLSC=WL**2 5 WLQU=WLSQ**2 »* 

wsq=w**2; wcu=w«wsq; wquau=wsq+*2; 

W2WT2= wsq*wtsq; 

W2WL2 =: WSQ * WLSQ ; 

W4WT4 = W2WT2<=»2; 

W4WL4 = W2WL2**2f 
W4WTL2 = WQUAD*WTSQ*WLSQ) i 
VIE = ARITH(VIE) ; 

VNE = ARITH(VNE); 

NI = arith(ni) ; 

/* PRINT OUT BASIC FIELD PARAMETERS AND INpUT DATA ♦/ 
PUT LIST ( ‘COMPLETE THREE-FLUID THEORY DISPERSION EQUATION*) 

page; 

PUT EDIT ( ‘MAGNETIC FIELD STRENGTH=‘ »H» ‘WEBERS PER 50. METEH‘) 
(SKIP(6) »A»E(12»S) »A) ; 

PUT EDIT( ’PLASMA FREQUENCY OF ELECTRONS = ‘»W£) (SKIP(l)rA» 
E(12f5) ) ; 

PUT EDIT( ‘PLASMA frequency OF IONS = ‘rWl) (SKIP(1)»A» 

E(12»5) ) ; 

PUT EDIT (‘COLLISION FREQUENCY OF ELECTRONS WITH I0NS=‘rVEl) 
(SKIP(l) rA»E(l2r5) ) ) 

PUT EDIT( ‘COLLISION FREQUENCY OF ELECTRONS WITH NEUTRALS =‘» 
VEN) (SKIP(l) »A»E(12»5) ) ; 

PUT EDIT (‘COLLISION FREQUENCY OF IONS WITH ELECTRONS^ ‘ » VIE ) 
(SKIP(l) rAfE(l2^5) ) ; 

PUT EDIT (‘COLLISION FREQUENCY OF IONS WITH NEUTRALS =‘»VIN) 
(SKiP(i) » a»e(12p5) ) ; 

PUT EDIT ( ‘COLLISION FREQUENCY OF imEUTRAlS WITH ELECTRONS =*» 
VNE) (SKIP(l) »ArE(12.5) ) ; 

PUT EDIT( ‘COLLISION FREQUENCY OF NEUTRALS WUk IONS =‘rVNI) 
(SKIP(l) »A»E(12»5) ) ; 

PUT EDIT ( ‘ELECTRON SOUND VELOCITY := ‘»UEr‘ METERS/SECONd’ ) 
(SKIP(l) »A»E(12»5) »A) ; 



PUT EDIK ’ION SOUND VELOCITY = ♦»UI»» METERS/SECOND* ) 

(SKIPU) f ArE(12»5) »A) f 

PUT EDIT I ’NEUTRAL SOUND VELOCITY = »»UN»» METERS/SECONU* ) 
(SKlP(l)rA»E(l2r5)»A)'‘ 

PUT EDIT (’ELECTRON NUMBER DENSITY =’ »NE» ’NUMBER PER CUBIC 
METER’) (SKIP(1)»A»E(12»5) »A) 5 
PUT EDIT(’ION NUMBER DENSITY=’ »NI r ’NUMBER PER CUBIC METER’) 
(SKIP(l) »AfE(l2»5) »A) ) 

PUT EDITC ’NEUTRAL NUMBER DENSITY =’ »UN» »nUMBER PER CUBIC 
METER’) (SKIP(l) »A»E(12»5) »A) » 

/* relations TO SHORTEN RUN TIME */ 

LET( SUBl = WISQ«VNS SUB2 = WESQ«VN) 

SUB3 = VE + VN» Su84 = VI + VN» 

SUBS = (VE*VN)-(VEN*VnE) f 

SUB6 = (VI*VN)-(VIN*VnI) » 

SUB7 = (VE1*VN)+(VEN*VND » 

SUB8 = WCU*CLSO » SUd9 = WQUAD*ClSq ) f 

/* OBTAIN EQUATIONS FOR JUST THE NUMERATORS OF THE C’S 
SINCE THE DENOMINATOR WILL BE MULTIPLIED OUT IN THE 
FINAL DISPERSION RELATION* THE FORM OF THE EQUATION 
IS AS follows; 

C(I) = A(I)*K**4 + B(I)*K**2 + D(I) */ 

LET( A(l) = 0.0 » 

A(2) = 0.0) 

A(3) = UISQ*UNSQ) 

A(4) = 0,0f 
ACS) = UESQ>KUNSQ) 

A(6) = 0.0) 

B(l) = -(WESQ+UNSQ) + («I*W*VEI*UNSQ) t 
B(2) = -(WSQ*CLSQ*SUB7) + («I*WCU*CLSq*VEI ) ) 
B(3)=(WISQ*UNSQ)-WSQ»(UNSQ+UISQ)-(«I»W)*(VN*UISQ+ 
Vl>t‘UNSQ) ; 

B(4) = (WSQ*CLSQ*SUa6)-(SUB9)-(«I*SUBa*SUB4) ) 

B ( 5 ) = ( W£SQ*UNSQ ) -WSQ* < UNSQ+UESq ) - C 4 1 *W ) ♦ ( VN*UESQ+ 
VE^UNSQ) ; 

B(6) = (WSQ*CLSQ*SUB5)-(SUB9)-(«I*SUBa*SUB3) J 
Dd) = WSQ*(WESQ+SUBT)+ 4I*(W*SUB2-WCU*VEI) ) 

D(2) = WSQ* D(l) ; 

D(3)=WQUAD-WSQ*(WISQ-t-SUB6)+ ))I* 
(WCU*SUB4-W*WISQ*VN) ) 

0(4) = WSQ * 0(3) ; 

D(5)=WQUAD-WSQ*(WESQ+SUBS>+ 

(WCU*SUB3-W*WESQ*VN) ) 

D(6) = WSQ * 0(5) )) 

/♦ DENOMINATORS FOR C’S ♦/ 

LET( CDEMU) = (-UNSQ*K**2) + ( WSO+«I*W*VN) ) 
CDEM(2)=(-WSQ*CLSQ“ttI*W*CLSQ*VN)*K**2 + 
(WOUAD+«I*WCU*VN) ) 

CDEMC3) = CDEM(l) f 
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CDEM(4) = CDEM(2) i 
CDEM(b> = CDEM(l) f 
CDElvKo) = CDEM(2) )f 

/♦ EQUATIONS FOR C*S WITH JUST THE NUMERATOR ♦/ 

EQS: DO 1=1 TO 6 BY 1 ; LETtl=nln); 

LET( Cd) = A(I)*K**f + BtI)+K+*2 + D( I ) ) ‘» 

ATOMIZE ( A(I) > BID 5 0(1) ) 5 

END EOS! 

/* PREPARING TO OBTAIN EACH TERM OF DISPERSION RELATION 
AS FUNCTION OF WrWTrii WL. COLLECTING LIKE QUANTITIES 
IN EACH TERM TO MAKE PROGRAM MORE EFFICIENT* ♦/ 

LET( CISQ = C(l)*+2; C2 Sq = C(2)'!'*2f 
C4SQ = C(4)**2» C6 Sq = C(6)*+2) 

C1C2 = C(l)+C(2); CiC4 = C(3)*C(4)f 
C3C5 = C(3)*C(5)J C3C6 = C(3)*C(6)f 
C4C5 = C(4)*C(5)) C4C6 = C(4)*C(6)f 
C4C6SQ = C4C6**2f CbC6 = C(5)*C(6>J 
C2QU = C2SQ**2J C10C2D = CDEM ( 1 ) ♦CUEM (2) » 

C2DSQ = CDEM(2)**2» C1DC2DCU = C10C2D+C2DSQ ? 
C1C2DSQ = ClDC2D*+2; C2DQUAQ = C2 DSq** 2 ) r 

/♦ individual terms OF dispersion relation ♦/ 

LET( TERM(l) = 2 . 0*MSQ*C2SQ*C3Cb+C4C6 f 
TERM (2) = MCU+C3C5+C4C6SQ ) 

TERM(3) = M*C2QU*C3CS ; 

TERM(4) = 2.0=t=M*ClSQ*C2SQ*C4C6 t 
TERM (5) = MSQ*C1SQ*C4C6SQ f 
TERM(6) = C1SQ+C2QU t 

TERM(7I = 2.0*W2WT2*ClC2*C2SQ*ClDC2D f 
TERM(8) = W2WT2*C2SQ*C5C6+CiDC2D ) 

TERM(9) = M*W2WT2*C4C6*C5C6*C1DC2D i 
TERM(IG) = MSQ*W2WT2*C2SQ*C3C4*C1DC2D » 

TERM(ll) = 2.0*M*W2 wT2*C1C2*C4C6*C1DC2D ; 

TERM (12) = MCU*W2WT2*C3C4*C4C6*C1DC2D ; 

TERM (ID) = 2.0+W2WL2*C1SQ*C2Sq»C2DSQ f 
TERM(14) = W2WL2*ClS(ii*CbbQ=>^C2DSQ f 
TERM (IE) = MSQ*W2WL2*C15Q’»'C4SQ*C2rSQ) t 
LET( TERM(lb) = 2. 0*M*W2 wL2*C2SQ+C3C5*C20Sq J 
TERM (17) = M+W2WL2*C3CS+C6Sq*C 2DSQ f 
TERM(ie) = MCU*W2WL2*C3C4*C4C5*C2DSQ J 
TERMCly) = 2.0+W4WTL2*C1C2^'--C1DC2DCU ; 

TERM (20) = M*W4WTL2*C4C5*C1DC2DCU f 
TERM (21) = M*W4WTL2*C3C6*C1 dC2DCU t 
TERM(22) = W4WT4+C2SQ+C1C2DSQ » 

TERMC23) = M*W4WT4*C4C6+C1C2DsQ ) 

TERM(24) = W4WL4+C1SQ+C2DGUAD » 

TERM(25) = M*W4WL4*C3C5*C2DQUAD )? 

/* ATOMIZING VARIABLES NO L0N(5ER NEEDED. */ 
AT0MIZE(ClSQJC2SQJC4SQf C6SQfClC2;C3C4JC3C5J C3C65C4C55C4C6? 

C4C6SQ;CbC6;C2QU;ClDC2D;C2DSQ;ClDC2DCUfClC2DSQ5 

C2DQUA0)) 
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/* determining cyclotron frequency of electron for use in 
VARYING propagation DIRECTION RELATIVE TO MAGNETIC 
FIELD* ♦/ 

WC s (CE*H)/ME f /♦ H IN WEBERS PER SQ. METER ♦/ 

/♦ THE following CHANGES WC' TO CORRECT UNITS OF TIME ♦/ 

IF factimeso then WC=WC> 

ELSE IF FACTIME=1 THEN WC=WC*1.0E-l? 

ELSE IF FACTIME=2 THEN WC=WC*1.0E-2; 

ELSE IF FACTIME=3 THEN WC=WC*l*0E-3» 

ELSE IF FACTIME=4 THEN WC=WC*1.0E-4> 

ELSE IF FACTIM£=5 THEN WC=WC*1.0E-5» 

ELSE IF FACTIM£=6 THEN WC=WC*1 . OE-6; 

ELSE IF FACTIML=7 THEN WC=WC*1 . OE-7 » 

ELSE IF FACTIMtsS THEN WC=WC*1. 0E-8> 

ELSE IF FACTIME=9 THEN WC=WC*1.0E-9> 

ELSE IF FACTIME=10 THEN WC=WC*1 . OE-10 » 

LET( WC=nwCn)» 

/♦ PUTTING IN VALUES FOR WT AND WL AND OBTAINING 

DISPERSION relation. ALSO* OBTAIN COEFFICIENTS OF 
powers OF K TO BE PUNCHED OUT FOR USE IN ROOTS 
PROGRAM. ♦/ 

cyclotron: do J= O to 90 by is : LET(J=njn); 

PUT SKIPC6) i 

PUT LIST (’ANGLE BETWEEN DIRECTION OF PROPAGATION AND 

magnetic field* )» 

PUT EDIT(*IS equal to **J»* DEGREES*) ( A»F(5*2> » A) ) 

IF J= 0.»J= 90 THEN 60 TO NATJ 
IF J=15 THEN GO TO FIFTEEN! 

IF J= 30 THEN GO TO THIRTY! 

IF J=45 THEN GO TO ANGLERS! 

IF J= 60 then go TO SIXTY) 

IF J=75 then go to ANGLE7S! 

fifteen: let( rewt = wc*o. 25882 f 

REWL = WC*0. 96593 )! 

GO TO DIS! 

thirty: let( rewT = wc*sind(j) ; 

REwL = WC*0.86603 )! 

GO TO DlS! 

AN6LE45: LET( REWT = WC*0.707ll ! 

REWL = WC*0. 70711 )! 

60 TO DIS! 

sixty: LET( rewt = WC*0.86603 ! 

REWL = WC«C0SD(J) )! 

60 TO DIS! 

ANGLE75: LET( REWT = WC*0. 96593 * 

REWL = WC*0.2S882 )! 

GO TO DIS* 

NAT: LET( rewt = WC*SIND(J) ! 

REWL = WC*COSD(J) >! 

OIS: LET( DISPER =0.0 )! 
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TERMS: 00 1= 1 TO 25 BY 1 J LETa=nIn)| 

LET(FTERMd) = REPLACE(TERM( I ) » WT»REWT»WL»REWL) ) » 

LET( DISPER = DISPER +FTeRM(D )t 
AT0MIZE(FTERM(J) } t 

END terms: /* NOW HAVE DISPERSION RELATION 

FOR given value of WT» WLr & W. */ 
./♦ NOW GET coefficients OF K IN FORM To BE PUNCHED OUT ♦/ 
LET( 2 = HI6HP0W(DISPER»K> f 
X = LOwPOW(DlSPERrK) ); 

KCOEF: DO I = 2 TO 16 BY 2f LET(I=nin)j 

LET( COEFK(I) = COEFF (DISPER »K** I) t 

coefkki) = coeff(co£fk(I) » tti) : 

COEFkR(I) = COEFK(I) - rtI*COEFKI(I) )! 

END KCoEF* 

/♦PUT IN CONSTANT TERM OF DISPERSION RELATION AS COEFK(O)^/ 
LET( L = 0.0 * 

COEFk(C) = REPLACE (DISPER »KfL) j 
COEFKKO) = COEFF(CoEFK( 0) »ttl) : 

COEFKR(O) = COEFK(O) - hI^CoEFKI(O) )J 
/♦ PUNCH OUT ALL REAL AND IMAGINARY COEFFFICIENTS OF EACH 
POWER OF Kr STARTING WITH HIGHEST POWER* ♦/ 
xpunch: DO 1= i6 by -2 TO O; L£T(I=nlH>: 

LET( COER=COtF'KR( I) ; 

COEI= COEFKKI) ) J 
PLCOER= ARlTH(COER)} 

PLC0EI= ARITH(COEI) ; 

PUT FILE(SYSPNCH)EDIT(PLC0ER) (SKiPd) »E(13»5) ) J 
PUT FILL(SYSPNCH)EDIT(PLC0EI) (SKlPd) rE(13r5) ) J 
END XPUNCH J 

END cyclotron: 

GO TO read: 

PUT SKIP(I) : 

QUIT: PUT LIST(»THAT»S ALL FqLKS»)j 
END disrel: 


APPENDIX E 


LISTING OF PROGRAM ROOTS 
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DIMENSION Al(20) 

DOUBLE PRECISION A(20) »FRE»FIM»FPRE»FPIM»XRE»XIM»X2RE» 
lX2lM»X3RE»X5lM»X4RE»X4IM»X5REfX5lM»X6RE»X0lM»BRE»BIM» 
2NUMRE»NUMIM»DEM»W»X6RE»X8IM»X7RE»X7IM»ERR0RE»ERR0IM» 
3X(20) »TEMP»FRT(35) rFIT(35) rFpRT(35) »FPIT (35) t X8TR ( 10 ) » 
4X8TK10) rX7TR(10) »X7TI(10) »X6TR(10) »KR<5) rKRE^S) »KK5) * 
5KIM(5) rPHSVE(5) »EF0LD(5) 

4000 REAU(5fl06) W »LEN» TYME»FAC 
DO 1000 I=lrl8 
READ(5»100) Aid) 

A(I) = Aid) 

1000 CONTINUE 

WRITE(6»105) W»FAC»LEN»TYME 
DO 20 I=l»9 

WRITE(6»115) A(2»I-1) »A(2*I) 

20 CONTINUE 
K * 6 

2 REAO(5d01) BRErBiM 

IF(BRE.EQ,99999.D0.AND,BIM,EQ.99999.D0) 60 TO 300 
WRITE(6»104) BRErBiM 
N = 1 

IF(K*iQ.8) 60 TO 950 
IF(K.EQ.7) 60 TO 951 
IF(K.EQ.6) 60 TO 952 
IF(k.EQ.5) 60 TO 953 
IF(K.EQ.4) 60 TO 954 
IF(K.EQ.3) 60 TO 955 
IF(K.EQ.2) 60 TO 956 

950 CALL EIGHTH(BRE»BIM»A»FRT»FIT»FPRT»FPIT»M»L) 

60 TO 960 

951 CALL SEVEN(BRErBIM»A»FRTrFlTrFPRT»FPIT»M»L) 

GO TO 960 

952 CALL SlXTH(BRE»BIM»A»FRT»FlT»FPRT»FPIT»MfL) 

GO TO 960 

953 CALL FIFTH(BREfBIMrA»FRT»FlTfFPRT»FPIT»M»L) 

GO TO 960 

954 CALL F0URTH(BRE»BIM»A»FRT»F1T»FPRT»FPIT»M»D 
60 10 960 

955 CALL THIRD(BRE»BIMrA»FRT»FlT»FPRT»FPIT»MfL) 

GO TO 960 

956 CALL SECOND(BRE»BlM»A»FRT»FIT»FPRT»FPlT»MrL) 

960 FRE= 0.0 

FIM= 0.0 
DO 15 I=lrM 
FRE = FRE+FrT(I) 

FIM = FlM+FlTd) 

15 CONTINUE 
FPRE= 0.0 
FPIM= 0.0 
DO 16 I=1»L 



FPRE = FPRE+FPRTd) 

FPIM = FPIM+FPlTd) 

16 CONTINUE 

NUMRE = (FRE+FPRE) + (FIM*FPIM) 

NUMIM = (FIM*FPRE) - (FRE*FPIM) 
IF(NUMRE.EO.O.DO.AND.NUMIN.Eq.O.DO) 60 TO 4 
IF(FPRE.EO.O*DO.OR.FPIM.EQ.O.DO) DEM= (FpR£**2)+ 
1(FPIM**2) 

ifcfpre.eq.o.do.or.fpim.eq.o.do) go to 6 
DEM = (FPRE**2)*(l.D0+(FplM/FPRE)**2) 

6 IF(FPR£.EQ.0.D0.ANU.FPIM.EQ,0.D0) WRITE(6»102) 
IF(FPRE.EQ.O*DO.AND.FPIM.EQ.o.DO) 60 to 2 
FRE = NUMRE/DEM 
FIM = NUMIM/DEM 
BRE = BRE-FRE 
BIM = BIM-FIM 
N = N+1 

IFCn.GT,300) go to 4 
IF(K.EQ.8) go to 9bO 
IF(K.EQ.7) go to 951 
IF(K.EQ.6) go to 952 
IF(K.EQ.5) go to 953 
IF(K.EQ.4) go to 954 
IF(K.EQ.3) go to 955 
IF(k.EQ.2) go to 956 
4 ERRORE =0.0 
ERROIM = 0.0 
DO 17 I=1»M 
ERRORE = ERRORE+FRTd) 

ERROIM = ERROIM+FITd) 

17 CONTINUE 

280 WRITE(6»103) BRE»BIM»ERR0RE»ERR0IM»N 

CALL XP0CPX(l»2rBREf8IM»KRfKl) 

DO 90 I=l»2 

KREd) = KR(I)*(10.**(-LEN) )/FAC 
KiMd) = KId)*(lO.**(-LEN) )/FAC 
PHSVEd) = w/KREd) 

EFOLD(I) = 1*0/KIM(I) 

WRITE(6»110) KR(I)»KId) 

WRITE (6 r 112) KREd) »KIM(I) »PHSVEd) rEFOLD<l> 

90 CONTINUE 
K = K"*l 

IF(k.EO.I) 60 TO 957 
IF(K.EQ.O) 60 TO 4000 
CALL SYNDV(A»BRE»BIM»K) 

KU=K+2 

DO 7000 IrlfKJ 
WRITE(6»115) A(2*I-1) »A(2*I) 

7000 CONTINUE 
GO TO 2 
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9b7 A(l) = A(l) 

A(2) = A(2) 

A(3) = A(3) + (BRE*A(1)-BIM*A(2)) 

A(4) = A(4) + (BIM*A(1)+3RE*A12) ) 

BRE =-(A(1)*A(3)+A(2)*A<4) )/(A(l)**2+A(2)**2) 

BIM = (A(2)*A(3)-A(1) 5<A{4> )/(A<1)**2+A(2)**2) 

ERRORE=0.0 

ERROIM = 0.0 

N = 1 

GO TO 280 

100 F0RMAT(El3.fa) 

101 F0RmAT(2D15.7) 

102 FORMAT! » ♦♦♦♦♦ DERIVATIVE OF F(X)=0 ***** *) 

103 FORMAT! »0»r» ROOT = ♦r20l4,b»* ERROR = •»20l4,6» 

3 ' number OF iterations PERFORMED = ♦^XS) 

104 FORMAT! ’-»r» INITIAL ESTIMATE = *#2014.6) 

105 FORMAT! »1» » *R00TS OF THE DISPERSION RELATION BY A 
INEWTON-RAPHSON ITERATION TECHNIQUE •/’ 0* #» APPLIED 
2 frequency = »#D12.6»» LENGTH DIMENSION =»#F3.1.** 
310*** #12# » METERS* » 

1 ♦ TIME DIMENSION = 10**-*»I2#* SECONDS*/* 

1 »0*»* DISPERSION RELATION COEFFICIENTS *) 

106 F0RMAT!D15.7»2I2#F3.1) 

110 FORMAT! ’O*#* K= • » 2D14.6) 

112 FORMAT! *0»#* WAVE NUMBER = *#2D14.6»» 1/METERS */*0*» 

1 ‘PHASE velocity = *»Dl4,6f» E FOLDING 

2 DISTANCE = »# 

1 D14.6) 

115 F0RMAT!2E13.6) 

300 STOP 
END 


SUBROUTINE ATWLTF!N»X) 

C USED TO arrange TERMS OF EQUATION IN ASCENDING ORDER. 
DOUBLE PRECISION X!50)»T£Mp 
DO 20 I=1»N 
IPI = I+l 
DO 20 J=IP1#N 

IF!0ABS!X!I) ) .LE.DABS!X!J> ) ) GO TO 20 
TEMP = XII) 

X!I) = X!J) 

XIJ) = TEMP 
20 CONTINUE 
RETURN 
END 
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SUBROUTINE XPOCPX(M»N»A»B»XR»XM) 

C THIS SUBROUTINE CALCULATES THE M/NTH ROOTS OF A 
C COMPLEX number OF THE FORM »C = A + I*B*. 

DOUBLE PRECISION A» Br BAR» BETAr COEF» K» PI» RM» RN» 
1 XR(25)r ALFAr T» XM(25) 

DOUBLE PRECISION AA»BB 
AA=OABS(A) 

BB=DABS(B) 

RM = M 
RN = N 

PI = 3.1415926535897932400 

IF(AA.EQ.O.DO.OR.BB.EQ.O.DQ) BAR=0SQRT(A«*2-i-B*«2) 

if(aa.eq.o.do.or.bb.eq.o.do) go to lol 

BAR=0ABS ( A) *OSQRT ( l.DO-l' (B/A) *’•‘2) 

IF(B.L£.1.D-32) go TO 101 

1F(DABS(DLOG10(AA)-DLOG1oIBB) ).LE.4.00)BAR=DSQRT(A**2'i> 
1 B*«2) 

101 COEF = BAR*^<RM/RN) 

T = DATAN2(B»A) 

IF (B .LT. O.ODO) T = 2.000*Pl - DABS(T) 

K = O.ODO 

DO 100 I=1>N 

BETA = T + K*2.0D0*PI 

alfa=beta*rm/rn 

XR(I) = COEF*DCOS(ALFA) 

XM(I) = C0EF*DSIN(ALFA) 

100 K = K + l.ODO 
RETURN 
END 


SUBROUTINE SYNDV (A»BRE»BIM»K) 

DOUBLE PRECISION A(20) rBRE.BIM 
J = 2*(K+l)+2 
DO 100 I=3»Jr2 
Ad) = A(l) 

A(2) = A(2) 

A(I) = Ad) + (BRE*A(I-2)-BlM*Ad-l) ) 
Ad+1) = Ad+1) + (BIM*A(I-2)+BRE*A(I-l) ) 
100 CONTINUE 
RETURN 
END 


SUBROUTINE SECOND (BRE»BlM»A»FRT»FIT»FPRT»FplT»M*L) 



DOUBLE PRECISION BRE*BIM»A(20) »FRT(20> »FIT(20) »FpRT(20) » 
1FPIT(20) 

FRT(l) = A(1)*{(BRE+BIM)*(BRE-BIM)) 

FRT(2) = ^A(2)*2.0*BRE*BIM 
FRT(3) = A(3)*BRE 
FRT(4) = -A(4)*BIM 
FRT(5) = A(5) 

FIT(l) = A(X)*2.0*BRE*BIM 

FITC2) = A(2)*( (BR£+BIM)*(BR£-BIM) ) 

FIT(3) = A(3)*BIM 
FIT(4) = A(4)*BRE 
FIT(5) = A(6) 

FPRT(l) = 2,0*A(1)*BRE 
FPRK2) = -2*0*A(2)*BIM 
FPRT<3) = A(3) 

FPITU) = 2.0*A(1)*BIM 
FPIT<2) = 2.0+A(2)*BRE 
FPIT<3) = A(4) 

CALL ATWLTF(5»FRT) 

CALL ATwLTF(5»FIT) 

M = 5 
L = 3 
RETURN 
END 


subroutine THIRD(BRE»BIM»A»FRT»FIT»FPRT»FPIT»M»L) 
double precision BRE»BIM»A(20) »FRT(20) »FIT(20) » 
♦FPRTC20) »FPIT(20) 

FRT ( 1 ) = ( A ( 1 ) *BRE ) * ( ( BRE+OSQRT C 3 . 0 ) *B IM ) ♦ ( BRE-^DSORT (3.0) 
1*BIM) ) 

FRT(2)=(A(2)*BIM)*( (BIM+DSQRT(3.0)*8RE)*(BIM-DSQRT(3.0> 

i*bre)) 

FRT(3) = A(3)*( (BR£+BIM)*tBRE-BlM) ) 

FRT(4) = -A(4)+2.0+BRE*BlM 
FRT(5) = A(5)»BRE 
FRT(6) = -A(6)*BIM 
FRT(7) = A(7) 

FIT(1)=(A(1)*BIM)*( (DSQRT<3.0)*BRE+BIM)*(DSQRT(3.0)* 
IBRE-BIM) ) 


FIT(2)=(A(2)*BRE)*((BRE+DSqRT(3.0)*BIM)*(BRE-DSQRT(3.0) 
1*BIm) ) 

FIT(3) = A(3)*2.0*BRE*BIM 

FIT(4) = A(4>*H8R£+BIM)*tBR£-BlM) > 

FIT(5) = A(5)*BIM 
FIT(6) = A(6)*BRE 
FIT(7) = A(B) 

FPRT(1)= (3.0*A(1) )♦( (BRE+BIM)*(BRE-BIM) ) 
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FPRT(2) = -6.0*A(2)*BRE*FJlM 
FPRT(3) = 2.0*A(3)*BRE 
FPRT(4) = -2*0*A(4)*BIM 
FPRT(5) = ACS) 

FPITCl) = &.0*A(1)*BRE*BIM 

FPITC2) = C3*0*AC2) )♦( (BRt+BlM)*(BR£-BIM) ) 

FPITC3) = 2.0*AC3)*BIM 

FPIT(4) = 2.0*A(4)*BRE 

FPn ( 5 ) = AC 6 ) 

call ATWLTF(7»FRT) 

CALL ATWLTFtVfFIT) 

CALL ATWLTFCSrFPRT) 
call ATWLTFC5»FPIT) 

M = 7 
L = 5 
RETURN 
END 


subroutine FOURTH(BRE»f3IM»A»FRT»FTT»FPRT»FpiT»M»L> 
double precision BRErBIMr A(20) »FRT(20) »FPRT(20) *FITC20) » 
1FPITC20) 

FRT ( 1 ) = C A ( 1 ) ♦BRE**2 ) ♦ ( C BRE+OSQRT ( 6, 0 ) *BIM) ♦ ( BRE-DSqRT 
1(6.U)>^BIM) } 

FRTC2) = A(1)»(BIM*»4) 

FRT(3)= (4.0*A(2)*BRE*3IM)*( (DIM+BR£)*(BIM-BRE) ) 
FRT(4)=(A(3) *BRE)*( (BRE+DSQKT ( 3* 0 ) *BIM) ♦ ( BRE^DSQRT ( 3. 0) 
I^BIm) ) 

FRT ( 5 ) = ( A ( 4 ) *DIM ) * ( ( B IM+DSqrt (3.0) ♦BRE ) * ( B IM-DSQRT (3.0) 
1*BRE) ) 

FRTC6) = A(b)*( (BRE+BIM)*(BRE-BIM) ) 

FRTC7) = -2.0*A(6)*BRt*BlM 
FRTC8) = A(7)*BRE 
FRTC9) = -A(8)*BIM 
FRTUO) - A (9) 

FIT(1)=(4.0^A(1)*BRE*BIM)*( (bRE+BIM)*(BRE-BIM) ) 

FIT(2) = (A(2) *BRE**2 ) ♦ ( ( BRE+DSQRT ( 6 , 0 ) *B IM ) ♦ C BR£-DSQRT 
1(6.0)*BIM)) 

F I T ( 3 ) = ( A ( 3 ) *8 IM ) ♦ ( ( DSQRT ( 3 . O ) ♦BRE+B IM ) *DSQRT ( 3 . 0 ) ❖ 
IBRE-BIM)) 

FITC4) = A(2) ♦CBIM**4) 

FIT(5) = (A(4) *BRE ) * ( eBR-^+DSQRT ( 3 . 0 ) *B IM ) ♦ ( BRE-DSQRT ( 3 . 0 > 
1»BIM)) 

FIT(6)= A(6)*({BRE+BIM) ‘ (BRE-BIM)) 

FIT(7) = A(7)*BIM 
FITC8) = A(8)*BRE 
FrT(9) - ACIO) 

FITCIO) 2.0*A(5)*BRE+BIM 
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FPRT (1) = (4.0*A(1) *BRE ) ♦ ( ( BRE+DSQRT ( 3 . 0 ) *BIM ) * C BRE- 
1DSQRT(3.0)*BIM) ) 

FPRT(2)=(4.0*A(2)*BIM)*( (BIM+DSQRT(3.0)*BRE)♦<B^M- 
lDSQRT(3.0)♦bRE) ) 

FPRT(3) = (3*0*A(3) )♦( (BRE+BIM)*(8RE“BIM) ) 

FPRT(4) = 2.0*A(5)*BRE 
FPRT(5) = -2.0*A(6)*BIM 
FPRT(6) = A<7) 

FPRT(7) = -6*0*A(4)+BRE*8IM 

FPIT(1)=(4.0*A(1)*BIM)*( (DSQRT(3,0)*bre+BIM)*<DSQRT 
1(3.0)*8RE-BIM) ) 

FPIT(2)=(4.0*A(2) *BRE ) * ( ( Bre+OSQRT ( 3 . 0 ) *BIM ) ♦ ( BRE- 
lDSQRT(3.0)*alM) ) 

FPIT(3) = (3.0*A(4) )♦( (BRE+BIM)*(BRE-BIM) ) 

FPIT(4) = 2.0*A(5)*BIM 
FPIT(5) = 6,0*A(3)*BRE*BIM 
FPIT(6) = A(8) 

FPIT(7) = 2.0*A(6)*BRE 
CALL ATWLTFUOfFRT) 
call ATWLTF(10»FIT) 

CALL ATWLTF(7»FPRT) 

CALL ATWLTFl7»FPIT) 

M = 10 
L = 7 
RETURN 
END 


SUBROUTINE FlFTH(BRErBIM» A»FRT»FlTrFpRT»FPlT»M»L) 

DOUBLE PRECISION BRE»BIMr A (2 q ) r FRT (20 ) » F IT (20 ) »FpRT (20 > » 
1FPIT(20) 

FRT ( 1) = ( A ( 1 ) *BRE**3 ) ♦ ( ( BRE+DSQRT (10.0>*BIM)*( BRE- 
10SQRT(10.0)*BIM) ) 

FRT(2)= (BIM**4)*(5.0*A(1)*BRE-A(2)*BIM) 

FRT (3) = (5.0*A(2) *BIM*BRE**2 ) ♦ ( ( DSQRT (2.0) *BIM+BRE > ♦ 
1(DSoRT(2.0)*BIM-BRE) ) 

FRT (4)=(A(6)*BIM)*( ( BIM+dSqRT (3.0) ♦BRE ) ♦ ( BIM-DSQRT 
1(3.0)*BRE) ) 

FRT ( 5 ) = ( A ( 3 ) *BRE**2 ) ♦ ( ( BRE+DSQRT ( 6 . 0 ) *B IM ) ♦ ( BRE-DSqRT 

1(6.0)*BIM) ) 

FRT(6)= (4.0*A(4)*8RE*BIM)*( (BIM+BRE)*(BIM-BRE) ) 

FRT ( 7 ) = ( A ( 5 ) *BRE ) * ( ( BRE+DSqrt ( 3 . 0 ) *31 M ) ♦ ( BRE-DSQRT 
1(3.0)’^BIM) ) 

FRT(8) = A(3)*(BIM*+4) 

FRT(9)= A(7)*( (BRE+BIM)*(BRE-BIM) ) 

FRT(IO) = -2.0*A(8)*BRE*BIM 
FRT(ll) = A(9)*BRE 
FRT(12) = -A(10)*BIM 
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FRT(13) = A(ll) 

FITll)=(A(2) *BRE**3 ) ♦ ( ( ORE+DSORT (lO.O)*BIM)*( URE- 
IDSGKTdOtO’lcBIM) ) 

FIT(2)= (BlNi**4>*U(l)*BlM+5,0*At2)*BRE) 
FIT(3)=(5.0»A(1)+BIM*BRE+*2)*( ( BRE+DSORT (2.0) 
♦(BRL-DSQRT<2»0)*BIM) ) 

FIT(4)= (4.U*A(3)*BKE*BIM)*( (BRE+BlM)+(BRt-BIM) ) 

FIT (5)= CA(4)*BRE**2)*( (BRE+RIM)»(BRE“BIM) ) 

FIT(6) = 2.0*A(7)*BRE*BIM 

FIT(7) = (A(5)*BIM)*( {DSQRTt3.0)*BRE+BIM)*(DsORT(3*l))* 
IBRE-BIM)) 

FIT(8)=(A(6) ♦BRE ) ♦ ( ( BRE+DSqrt ( 3 • 0 ) *8 I M ) * ( BRE-DSQRT 
1(3.0)+BIM)) 

FIT(9)= A(8)*( (0RE+BIM)*(Bre-BIM) ) 

FITUO) = A(4)*(BIM**4) 

FIT(ll) = A(9)*BIM 
FIT(12) = AU0)*3RE 
FIT113) = A(12) 

FPRT { 1 ) = ( 5 . 0*A ( 1 ) ♦(3RE**2 ) ♦ ( ( BRE+OSqRT ( 6. 0 ) *BIM > ♦ 

1 (BRE-DSQRT (6. ) 

FPRT(2) = 5.0*A(1) *(BIM**4) 

FPRT (3)=(20.0*A(2)*BRE*BIM)*( (BlM+BRE ) * (BiM-BRE ) ) 
FPRT(4) = (4.0*A(3)*BRE)*( (BRE+DS(iRT(3.U)*BlM) + 

I (BRE-DSQRT(3.0)*BIM) ) 

FPRT (5) = (4.U*A(4)*BIM)*( ( BiM+USGiRT (3.0) ♦BRE ) ♦ 
1(BIM-DSQRT(3*0)^BRE) ) 

FPRT (6) = (3.0^A(5) )♦( (BRE+BIM)+(BRE-BIM) ) 

FPRT(7) = -6.0*A(6)+BRE+BIM 
FPRT(i3) = 2»0 + A(7)^BR£ 

FPRU9) = -2.0+A(a)+BIM 
FPKT(IO) = A(9) 

FPU (1)=(2U,0^A(1)^BIM+BRE)*( ( BRE+BIM ) ♦ (BRE-RIM ) ) 
FPIT(2)=(5.U*A(2)+BRE**2)»( (BRE+DSuHT ( fa. 0 ) ♦BIM ) * 
l(BRE-DGQRT(fa.0)+8lM) ) 

FPiT(3)=(4.u*A(3)^BIM)+l(DSQRTl3.0)+BRE+alM)+(DSQRT 
l(3.0)*BRE-diM) ) 

FPIT(4) = fa.0+A(2)+(BlM+^4) 

FPIT(5)=(4.0*A(4) ♦BRE ) ♦ ( (BREf DSQRT ( 3 . 0 ) ♦BiM ) ♦ ( BRE- 
1DSQRT(3.0)^BIM) ) 

FPIT(fa)= (3.0^A(6 ) )♦( (BRE+BIm)^(BRE-BIM) ) 

FPIT(7) = 2»0^A(7)^BIM 
FPIT(e) = k;. 0 ^A( 8 )^BRE 
FPIT(9) = A(IO) 

FPIT(IO) = b.0^A(5)^BRE+BlM 
CALL ATWLTFU3»FRT) 

CALL ATWLTF(13rFlT) 

CALL ATwLTFUO.FPRT) 
call ATwLTF(lOrFPIT) 

M = 13 
L = 10 
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RETURN 

END 


SUBROUTINE SlXTH(BRErBIM» ArFRT»FlT»FpRT»FPlT»M»L) 

DOUBLE PRECISION BREf BIM» A ( 2 U ) » FrT ( BO ) » FIT ( 30 > » FpRT (30 > » 
IFPITOO) 

FRT ( 1 ) = ( A (1 ) *B IM+*4 ) ♦ ( ( DSCRT (15.0) ♦BRE+B IM ) ♦ ( DSQRT 
l(l5.0)*BRE-blM) ) 

FRT(2)=(A(i)*BRE**4)*( (BRE+DSQRT(15.0)*BIN)*(BRE- 
1DSQRT(15.0)*BIMJ ) 

FRT(3)=(A(3)+BRE**3)*( (BRE+DSQRT(10.0)♦BIM)♦(BRE- 
1DSQKT{10.0)♦B^M) ) 

FR r (4 ) = ( A { 4 ) *BlM**3 ) ♦ ( ( DSQRT ( 10 ..0 ) ♦BRE+BIM) ♦ (DSQRT 
1 (10.0)*BRE-dIM) ) 

FRT(5) = -6.0*A(2)*BRE*(8lM=M'b) 

FRT(6) = -b.0 + A(2)*BIM*(BRE»>Kb) 

FRT(7) = 2U.0*A(2)*(BRE**J)*(tiIM**3) 

FRT ( 8 ) = ( A ( 5 ) *c3RE**2 )*U BRt+DbORT (6.0) *B IM ) ♦ ( BRE- 
lDSORTj[&.0)*blM) ) 

FRT(9) = 5.0*A(3)*BRE»(BIM**4) 

FRT(IO) = (4»0*A(6)*BRE*BIM)»( (bIM+BRE)*(BlM-BRE) ) 

FRT ( 1 1 ) = ( A ( 7 ? *BRE )*(( BRE+DSub T ( 3 . 0 ) *b IM ) ♦ ( BRE- 
1DSQKT(3.0) ^ulM) ) 

FRT(12) = -5»0*A(4)*BIM*(BR£+*4) 

FRT(13)=(A(b>*BIM)*{ (BlM+DsaKT(3.0)*BRE)*(BIM-DSQRT 
1(3.U)+BRE) ) 

FRT(14) = A(9)*( (BRE+BIM)*{BRE-bIM) ) 

FRTdS) = A(5)*(BIM**4) 

FRT(16) = -c;»0*A(10)+DRE+BlM 
FRT(17) = A(11)+BRE 
FRT(18) = -A(12)*BIM 
FRT (19) = A (13) 

FIT(l) = b.u*A(l)*BRE*(BlM**5) 

FIT(2) = 6.U*A(1)*BIM*(BrE*»5) 

FIT(3) = -2u»0*A(l)*(BRE+*3)+(BlM**3) 

FIT(4) = (A(2)*BRE**4) *( (BRE+DSGRT (l5.0)*BlM)*(FiRE- 
1DSQRT(15.0)*BIM) ) 

FIT (5) = ( A (2) ♦BIM*=i‘4)*( (DSQRT (15.0 )*BRE+BIM)* (DSQRT 
l(15.0)*BRE-blM) ) 

FIT (6)=( A(3)*BIM**3)*( (DlM+DsQRT(l0.0)+BRE)*(bIM- 
1DSQRT(10.0)*BRE) ) 

FIT(7) = (A(4) ♦ERE++3 ) ♦ ( ( BRE+DSQK T ( 1 0 . 0 > *B K ' > * ( BRE- 

lDSQRT(i0.0)*bIiV|) ) 

FIT (8)=(4.0*A(5)*BRE*BIM)*( (bHE+Blh) ♦ (BRE“bIM) ) 

FIT(9) = 5.0*A(3)*BIM*(BRE**.+ ) 

FIT (10)=(A(6)*BHE**2)*( (3HE+USuRT(6.0)*BIN)*(BRE- 
IDSQKT (6.0)+bIM) ) 
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FIT(U)=(A(7)*elM)*( (OSQRT(3,0)*BRE+alM)*(DSQRT 
1(3.0)*BRE-B1M) ) 

F1T(12) = ‘3.0*A(4)»BRE*(BIM*+4) 

FIT(13)=(A(b)*QRE>*( (BRE+OSQKT(3.0)*fcJIM)*(BRE- 
lUSQRT(3.U)«blM) } 

FIT(14) = 2,0*A(9)*BRE*BIM 

FITU5) = A(10)*( (BRE+BlM)*(;jRE-BlM) ) 

FIT(16) = A(11)*BIM 
FITd?) = A(6)*(BIM**4) 

FIT(ie) = AU 2 )*BRE 
FIT (19) = A(14) 

FPRKl) = 6.0*A(l)*(BRE**b) 

FPRT(2) = 3U*0*A(1)»BRE*(BIm^*4) 

FPRT(3) = -»60.0*A(1)*.(BRE**3)*(BIM»*2) 

FPKT(4) = -fcj.0*A(2)*(aiM**5) 

FPRT(5) = -30.0*A(2)*BIMK(BKL**‘f) 

FPRT(6) = 60*0*A(2)*(BRE**2)»(tilM**3) 

FPRT ( 7 ) = ( 5 . U *A ( 3 ) *BRE**2 )*(( BRE+DS(jRT ( 6 . 0 ) ♦BIM ) * 

1 (BRE-DSQRT(6.0)*BiM) ) 

FPRKS) = 5.0*A(3)*(BIM**4) 

FPRT(9)=(20.0*A(4)*BRE*BIM)*( (BIM+BRE) * ( BIM-BRE ) ) 
FPRT (10)={4.0*A(5)*BRE)*( (BRE+DSoRT ( 3. 0 ) ♦BIM) * 
l(BRt-DS(JRT(3*0)+BlM) ) 

FPRT(ll) = (4.0*A(6)*eiM)*( (BI,-i+DS«RT(3.0)*BRE)* 
1(8IM-DSQRT(3»0)*BRE) ) 

FPRT(12)= (3.0*A(7) )♦( (BRE+BIM)*(BRE-BIM) ) 

FPRT(13) = -6.0*A(a)»BRE*8l|Vi 
FPRT(14) = 2.0*(A(9)*BRE-A(lij)^BlM) 

FPRTUS) = A(ll) 

FPIT(l) = b.0*A(l)*(BIM**b) 

FPIT(2) = 30»0*A(1)+BIM+(Bre+*4) 

FPITO) = -b0.0*A(l)^(BRE**2)*(BlM*^3) 

FPIT(4) = 6.0*A(2)*(BRE*+5) 

FPIT(5) = 30»0*A(2.’*BRE*(BIM+*4) 

FPIT(6) = -o0.0*A(2)*(BRE**3)*(BIM+*2) 

FPlT(7) = <20.0’t'A(3)+BRE*BIM)*( (BRE+BIM)*<8R£-BIM) ) 
FPIT{6) = (5.0*A{4)*BRE**2)*( ( bRE+DS(jRT (6 . 0 ) ♦BIM) ♦ 
l(BRt-DSQRT(b.O)*BlM) ) 

FPIT(9)=(4.u)*A(5)*BIM)+( (DSQRT(3»0)*BRE+BIM)*(0SQRT 
1(3.0)+BRE-BIM) ) 

FPIT(IO) = b»0«A(4)*{BIM+*4) 

FPIT<11)=(4.0*A(6)^8RE)*( (BRL+DSgRT(3.0)*B1M)*<BRE 
1 »DSQRT(3.0)*B.TM) ) 

FPIT(12)= (3»0=(sA(8) )♦( (BRE+bIM)*(BRE-BlM) ) 

FPIT{13) = b.0*A(7)*BRE*i:iiM 

FPIT(14) = 2.0!^A(^.)+BIi-1 + 2#0*A(10)^BRE 

FPirdS) = Ad?.) 

call ATWLTF(19rFRT) 

call ATWLTFd9»riT) 

CALL ATWLTFdSf FPRT) 
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CALL ATWLTFU5»FPIT) 
M = 19 
L = 15 
RETURN 

end 


SUBROUTINE SEVEN(BRE»8IM» A,FKT»FlTrFpRT»FPlT»M»L) 
double precision BRE»B1M»A(20) »FrT(35) »FiT(35) »FPRT(30) » 
1FPIT(30) 

FRT(l) = A(1)*(BRE**7) 

FRT(2) = -7.0»A(l)*BRE*(alM+*b) 

FRT(3) = -21.0»A(1)+(BRE+*5)*(8IM**2) 

FRTC4) = 35.0*A(D*(BRE**3)»(BIM*+4) 

FRT(5) = A(2)*(BIM**7) 

FRT(6) = -7.0*A(2)+BIM+(BRE*+6) 

FRT(7) = -21.0*A(2)*(BRE**2)+(BIM**5) 

FRT(8) = 35.0*A(2>*(BRE**4)*(aiM**3) 

FRT(9) = A(3)*(BRE**6) 

FRT(IO) = -a(3)*(BIM**6) 

FRT(ll) = lb.0*A{3)*(BRE**2)'>=(BlM**4) 

FRT(12) = -l5.0*A(3)*(BRE**4)*(BlMt*2) 

FRT(13) = -6»0*A(4)*BRE*(BIM**5) 

FRT(14) = 20.0*A(4)*(BRE**3)*(BIM**3) 

FRT(15) = -6*0*A(4)*BIM*(Bre**5) 

FRT(16) = A(5)*(BRE+*5) 

FRT(17) = 5.0*A(5)*BRE*(BlM»*4) 

FRT(18) = -10.0*A(5)*(BRE**3)*(BIM+*2) 

FRT(19) = “A(6)*(BIm**5) 

FRT(20) = -b«0+A(6)*BIM*(BRE*»4) 

FRT(21) = 1U.0*A(6)*(8RE**2)*<BIM**3) 
FRT(22>=lA(7)*8RE**2)*( (3RE+USQRT{b*0>*BlM)*(BRE- 
10SQRT(6.0 )»bIM) ) 

FRT(23) = A(7)*(BIM**4) 

FRT ( 24 ) = ( 4 . 0* A ( 8 ) ♦BRE*B I M ) ♦ ( ( B IM+BRE ) ♦ ( B I M-BRE ) ) 
FRT(25)=(A(9)*BRE)*( (8RE+DSQRT(3.0)*BlM)*(dRE-DS0RT 
1(3.0)*BIM)) 

FRT (26) = ( A ( 10 ) *BIM) ♦ ( (BIM+DSQRT (3.0) +BRE ) ♦ (BIM-DSQRT 
l(3.u)*BRE)) 

FRT(27) = A(ll)*( (BRE+BIM)*(BRE-Blt«1) ) 

FRT(28) = -2.0*A(12)*BRE*BIm 
FRT(29) = (a( 13)*BRE) - (A(l4)»BlM) 

FRT(30) = A(15) 

FIT(l) = -A(1)»(BIM**7) 

FIT(2) = 7.0*A(1)*BIM*(BRE**6) 

FIT(3) = -35.0*A(1)*(BRE**4)*(BIM**3) 

FIT(4) = 21.0*A(1)*(BRE**2)*(BIM**5) 

FIT(5) = A(2)*(BRE**7) 
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FIT(6) = -21.0*A(2)*(BRE+*5)*(BIM**2) 

FIT(7) = 35.0*A(2)*(DRE**3) + (tiIM**4) 

FIT(a) = -7.0+A(2)*BRE+(BlM»*6) 

FIT(9) = 6.0*A(3)*BRE*(BlM+*b) 

FIT(IO) = -20.0*A(3)*(URE**3)*(BIM»*3) 

FIT(ll) = 6.0*A<3)*BIM+(3RE*+£>> 

FIT(12) = A(4)*(BRE**6) 

FIT(13) = -A(4)*(BIM**6) 

Fini4) = -ib.O + A(4)*(BHE + *4)*(BlM*»2) 

FITU5) = lb.Q*A(4)*(BRE + #2) 

FIT(lb) = A(5)*(BIM**5) 

FIT(17) = 5.0*A(5)*8IM*(DRE**4) 

FITUa) = -iO.O*A(b)*(6RE*+2)»(BlM**3) 

FIT{19) = A(6)*(BRE**5) 

FIT(20) = 5.0*A(6)*BRE*(BIM*+^4) 

FIT(21) = -i0.0*A(6)*(QRE*^3)*(blM**2) 
FIT(22)=(4.U*A(7)*BRE*BIM>+( ( bRE+BlM ) ♦ (BRE-BIM) ) 

F I T ( 23 ) = ( A ( b ) *BRE^*2 ) ♦ ( ( 8RE+0bURT ( fa . 0 ) *BIM ) ♦ ( BRE-DSGRT 
1(6.0)+BIM) ) 

FIi(24)=(A(9)*BlM)*( ( DSQRT ( 3 . 0 ) *BRE+B IM) ♦ (USORT ( 3» 0 ) * 
18RE-BIM) ) 

FIT(25J = A(8)*(BIM**4) 

FIT(26) = (A(10)*BRE)*( (BRE+DSiiRT ( 3. 0 ) *BIM) ♦ (BRE-DSGRT 
1(3.0)*BIM) ) 

FIT(27)= A(l2) ♦ ( (BRE+BIM) ♦ (bKE-BlM) ) 

FIT(28) = 2.0*A(11)*BRE*BIM 
FIT(29) = (aU3)*BIM) + (A(i<4)*BRE) 

FIT(30) = A(16) 

FPKTd) = 7,0*A(1)*(DRE**6) 

FPRF(2) = -7»0*A(1)*(BIM**6) 

FPRTC3) = -105.0»A(1)*(BRE+»4)+<BIM*»2) 

FPRT(4) = lu5.0*A(l)*(BKE**2)*(BiM*»4) 

FPRT(b) = -42.0*A(2)*BIM*(BKt:**5) 

FPRT(6) = l40.0*A(2)*(BRE**3)*(bIM**3) 

FPKT(7) = -42.0*A(2)*BRE*tBli1+*5) 

FPRT(8> = 6,0*A(3>*(BRE*<^5) 

FPKT(9) = -fa0.0*A(3)*(BRE**3)*CBIM**2) 

FPKT(IO) = 30.0*A(3)*BRE+tBl;‘i**4) 

FPRT(ll) = -6.0*A(4)»(BlM+*b) 

FPKTU2) = -30.0*A(4)*BIM*<BRE**4) 

FPHT(13) = faO,0*A(4)*(BRE**2) *(B1M**3) 
FPRT(14)=(b.0*A(5)*BRE*+2)*( (bRE+DSQRT(6.0)♦BIM)♦<BRE- 
lDSGRT(6.0)♦bIM) ) 

FPP'niS) = b.0*A(5)*(BIM**4) 

FPRT (16)=(2U.0*A{6)*BRE+GlM)»( (BIM+BRE)*(BIM-BRE) ) 

FPR ]<17) = (4.0*A(7) *6RE ) * ( < BRE+DSqRT ( 3 . 0 ) *BIM ) ♦ ( BRE- 
1DSQK7 (3.0)*blM) ) 

FPRT(ia)={4,0*A(a)*BIM)*((3iM+DSGRT(3.0)*6RE)*(8lM- 
1DSQRT(3.0 )*uRE) ) 

FPRTU9) = (3.0*A(9) )♦( (BRE+BIM)*(BRE-Blf^> ) 
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FPRT(20) = -6*0*A(10)*BRE*BIivi 
FPRT(2l) = 2*0*C (A(11)*BRE)-(A(12)*BIM) ) 

FPRT(22) = A(13) 

FPXT(l) = 42»0*A(1)*BRE*(BIM**5) 

FPIT(2) = -i40.0*A(l)*(BRE**3)*(BlM^*3) 

FPIT(3) = 42*0*A(1),*BIM*(BRc;**5) 

FPIT(4) = 7.0*A(2)»(BRE*+6) 

FPIT(5) = -7*0*A(2)*(BIM+*6) 

FPIT(6) = -l05.0*A(2)*(BR£*+4)*(BlM»+i>) 

FPIT(7) = 105.0*A(2)*(BRE**2)*(BIM*+4) 

FPIT(6) = 6.0*A(3)*(BIM**5) 

FPIT(9) = 30*0*A(3)*BIM>MBR£**4) 

FPIT(IO) = -60«0*A(3)*(BRE*»2)*tblM**3) 

FPIT(ll) = 6.0*A(4)^(BRb. + *5) 

FPIT(12) = -60.0*A(4)*(BRE+*3)*(BIM**2) 

FPIT(13) = 30.0*A(4)*BRE+<BIM**4) 

FPIT(14)=(20.0*A(5)*BRE*BlM)»( (BKE+RIM) * (BRE-BIM) ) 
FPIT(1S)=(5.0^A(6)*BRE**2>*( (BRE+DSQRT ( 6, 0 ) ♦BiM ) ♦ (BR£- 
1DSuHT(6.0)*BIM) ) 

FPIT(i6)=(4,0+A(7)*BIM)*{ iDSQRT<3.0)*BRE+BIM)*(DSOHT 
1 (3.0)*BRE-6iM) ) 

FPIT(17) = b»0*A(6)*(BIM*“*'4) 

FPITCl8)=(4.0*A(a)*BRE)*( < 0 KE+D&GRT( 3 •O)♦BIM)*( 8 RE- 
lDSQRT(3•O)>t<tiIM) ) 

FPITa9) = (3.0*A(10))*((BRe.+BlM)*(l3R£-BlM) ) 

FP1U20) s o#O*A(9)*0R£*3lM 
FPIK21) = (A(U)*BIM)-(AU2)^BRh) 

FPIT(22) = A(14) 

CALL ATWLTF(30»FRT) 

CALL ATWLTF(30»F;IT) 

CALL ATWLTF(22»FPRT) 
call ATWLTF(22»FPIT) 

M = 30 
L = 22 
RETURN 
END 


subroutine eighth (BRE»B1M»A»FRT»FIT»FPRT»FPIT»M»L) 

DOUBLE PRECISION BRE »BIM f A (20 > » FRT ( 20 ) » F IT ( 20 ) f FPRT ( 20 > » 
IFPrn 20) f XBTR(IO) fXSTI (10) fX7TR(10) »X7TI (lO) ►XBTRdO) r 
2XaRL»X8lM,X7RE»X7lM»X6RErX6I;.i»X5RE,X5IM»X4RE»X4IM»X3RE» 
3X3lNrX2R£rX2lM»XFE»XIM 
C TERMS CONTAINING EACH POWER OF K 
3 X8Th(l) = -20.0*(BIM**6)+(BRE**2) 

X8TK(2) = 70»0*(BIM**4)»(BRE**4) 

X8TR(3) = -28«0*(BIM**2)*(BRE**6) 
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X8TRC4) = 8RE**8 
X8TR(5) = 

X8TK1) = -B«0*<BIM**7)*QRE 
X8TK2) = 56*0*(BIM**5)^(BRE**3) 

X8TK3) = -&6.0»(BIM**3)*t£3R£**5) 

X8TK4) = 8.0+(BIM)*(BRE**7) 

X7TR(1) = -7*0*(BIM**6)*8«E 
X7TR(2) = 35»0*(BIM**4)*(BR£**3) 

X7TR(3) = -2l.0*(BIM**2)*(BRe+»5) 

X7TR(4) = BRE+%7 

X7TI(1> = 21.0*(8IM»*5)*(Bre**2) 

X7TK2) = -35tt)*(BIM**3)*<BRE**4) 

X7'':(3> = 7.0*BIM»(BRE**6) 

X7TK4) = -(BIM**7) 

X6TR(1) = 15.0»(BIM**4)*(Bre**2) 

X6TR(2> = -l5.0*(BIM**2)+tBR£**4) 

X6TR(3) = BRE*>*<6 
X6TR(4) = 

CALL ATWLTF(5»X8TR) 

CALL ATWLTF(4»X8TI) 

CALL ATWLTF(4»X7TR) 
call ATWLTF(4rX7TI) 

CALL ATWLTF(4»X6TR) 

xbrezo.o 

xeiNi=o*o 

X7R£=0.0 

X7Im=0.0 

X6RE=0.0 

DO 35 I=l»5 

X8RE = X8RE + X8TRU) 

35 CONTINUE 

DO 36 I=l»4 

XaiM = X8IM + X8TKI) 

X7IM = X7IM + X7TKI) 

X6RE = X6RE + X6TR(I) 

36 CONTINUE 

X6IM = 6.0D0*(BIM**5)*BRE - 20«0D0*(BIM**3)^(BRE*»3) 

2 + 6.0D0* BIM*(BRE**5) 

X5RE=5«0*(BIM*»4)*BRE+(BRE**3>*( (BRE+OSQRT(10.0)*BIM)* 
l(BRE-DSQRTaO.O)*BIM) ) 

X5lM=tBIM**3)*UBlM+DSQRTUO.O>*BR£>*(DlM-DSQRT(lO,0)* 
IBRE) )+5.0*BIM*(BRE**4) 

X4RE= ( B IM**4 ) + ( BRE**2 ) ♦ ( ( Bre+DSQRT ( 6. 0 ) ♦BIM) ♦ ( BRE- 
1DSQRT(6.0)*BIM) ) 

X4IM=(4.0»B1M*8RE)*( (BRE+BIm)*(BRE-BIM) ) 

X3RE= BRE*( (BRE+DSQRT(3.0>*BIM)*(BRE-DSQRT(3.0)*BIM) ) 
X3IM = BIM*( (DSQRT(3.0)*BRE+bIM)*(DSGRT(3.0)*BRE-BIM) ) 
X2RE = (BRE+BIM)*(BRE-BIM> 

X2IM = 2.0D0*BIM*BRE 
XRE = BRE 
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XIM= BIM 

C TtRMS OF real PART OF F(X) 
FRT(l) = A(D*X8RE 
FRT(2) = -A(2)*X8IM 
FRT(3) = A(3)*X7RE 
FRT(4) = -A(4)*X7IM 
FRT(b) = A(b>*X6RE 
FRT(6) = -A(6)*X6IM 
FRT(7) = A(7)*X5RE 
FRT(8) = -A(8)*XbIM 
FRT(9) = A(9)*X4RE 
FRT(10)= -A(10)*X4IM 
FRT(1D= A(il)+X3R£ 
FRT(12)= -M(12)*X3IM 
FRT(13)= A(x3)*X2RE 
FRT(14)= -AU4)*X2IM 


FRl (15)= A(i5)*XRE 
FRT(16)= -A(lfo)*XlM 
FRT(17)= A (17) . 


TERMS OF imaginary PART OF F(K) 

FIT(l) = 

A(1)*X8IM 

FIT(2) = 

A(2) ♦X8RE 

FIT(3) = 

A(^)*X7IM 

FIT(4) = 

A(4)*X7RE 

FIT(5) = 

A(b)*X6IM 

FIT(6) = 

A (6 ) *X6RE 

FIT(7) = 

A(7)*X5IM 

FIT(6) = 

A(a)=t'X5RE 

FIT(9) = 

A(9)*X4IM 

FIT(1C)= 

A(iO)*X4RE 

FIT(11)= 

A(ll)*X3lM 

FIT(12)= 

A(12)*X3RE 

FIT (13)= 

A(13)*X2IM 

FIT(14)= 

A(14)*X2RE 

FIT(lb)= 

A(15)*XIM 

FIT(16)= 

A(i6)*XRE 

FIT(17) = 

: A(18) 


C TERMS OF REAL PART OF F»(K) 
FPRr(l) = 8,0*A(1)*X7RE 
FPRT(2) = -8»0*A(2)*X7IN! 
FPRT(3) = 7.0*A(3)*X6RE 
FPRT(4) = -7.0*A(4)*X6IM 
FPRT(5> = 6.0*A(5)*X5RE 
FPRT(b> = -o»0*A(6)*X5IM 
FPRK7) = 5.0%A(7)*X4RE 
FPKl (8) = -5»0*A(8)*X4IM 
FPRT(9) = 4.0*A(9)*X3RE 
FPRT(10)= -a»0*A(10)*X3IM 
FPRT(11)= 3.0*A(ll)*X2RE 
FPRT(12)= -3»0*A(12)*X2IM 
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FPRTU3)= 2,0*AU3)*XRE 
FPRt(14)= -2.0*A(14)*XIM 
FPRTM5)= AdSy 

C TERMS OF imaginary PART OF F»(k> 
FPIT(I) = 8.0*A(1)*X7IM 
FPIT(2> = 8,0*A(2)*X7RE 
FPir(3) = 7.0*A(3)*X6tM 
FPIT(4) = 7.0*A(4)*X&RE 
KPlT(rj) = &.0*A(5)*X5IM 
FPIT(6) = b.0*A<6)*X5RE 
FPIT(7) = b.0*A(7)*X4lM 
FPIT(6) = 5.0*A(8)*X4RE 
FPir(9) = 4,0*A(9)*X3IM 
FPIT(10)= 4.0*A(10)*X3RE 
FPirai)= 3.0*A{11)+^2IM 
FPil(i2)= o.Q*A(l2)*X2RE 
FPITa3)= 2.0*Aa3)*XIM 
FPirU4)= 2.0*A(14)*XRE 
FPIT(1S)= /U16) 

CALu ATWLTF(17fFRT) 

CALU ATWLTF(17»FIT) 

CALL ATWLTFUbfFPRT) 

CALL ATWLTF(15»FPIT) 

M = 17 
L = 15 
RETURN 
ENU 



172 


References 


1. Tanenbaum, B. Samuel and Mlntzer, David. "Wave Propagation In a 

Partly Ionized Gas", The Physics of Fluids , Vol. 5, Number 10, 
October, 1962. 

2. Tanenbaum, B. S. and Meskan, David A. "Wave Propagation in a Partly 

Ionized Gas. II", The Physics of Fluids , Vol. 10, Number 9, 
September, 1967. 

3. Dahl, Thomas L. and Murphree, David L.' "Numerical Solution for 

Propagation of Longitudinal Waves Along the Applied Magnetic 
Field in a Three-Fluid Partially Ionized Gas", Aerophysics 
and Aerospace Research Report No. AASE 70-27, Mississippi 
State University, August, 1970. 

4. McClendon, Ronald W. and Murphree, David L. "Numerical Solution for 

Propagation of Coupled Loiigitudinal and Transverse Waves Normal 
to the Applied Magnetic Field in a Three -Fluid 'ledium' , 
Aerophysics and Aerospace Research Report No. i'ASE 71*-37, 
Mississippi State University > August, 1971. 

5. Xenakis, John. PL/1 ■ FORMAC Symbolic Mathematic s Interpreter . 

Hawthorne, N, Y., Program Information Department, IBM 
Corporation, September, 1969. 

6. Froberg, Carl -Erik. Introduction to Numerical Analysis , London, 

Addison- -Wesley Publishing Company, Inc., 1965. 



173 


CHAPTER IV 


ANALYSIS OF THE MIXED INITIAL- BOUNDARY VALUE PROBLEM 
FOR A THREE-FLUID PLASMA WITH A NUMERICAL EXAMPLE 


by 


Billy H. Johnson and David L, Murphree 


NOTE: Figures, references and equations begin a new sequence in each Chapter. 

Also, the Appendices are lettered consecutively by Chapter, 
and each Chapter includes its own list of symbols. 




LIST OF SYMBOLS 


thermal speed of ions 

thermal speed of electrons 

thermal speed of neutrals 

magnetic field, weber/m^, B^^i + B 2 j + 

speed of light, 3 x 10® m/sec 

fundamental electronic charge, 1.6 x 10"^^ coulomb 
electric field, V/m, E^i + E 2 j + E 3 k 
current density 

Boltzman's constant, 1.38 x 10“^^ Joule/OK 

permittivity of vacuum, 8.85 x 10“^^ coul^ - sec^/m® 

mass of an argon ion, 6.73 x 10“^® Kg 

mass of an electron, 9.1 x 10"*®^ Kg 

mass of a neutral particle, 6.73 x 10”^® Kg 

ion number density 

electron number density 

neutral number density 

ion pressure 

electron pressure 

neutral species pressure 

ion temperature 

electron temperature 

neutral species temperature 

velocity of ions, m/sec, xx^± + v^j + w^k 

velocity of electrons, m/sec, u^i + v^j + w^k 
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V 

n 


W 


(i) 


X 


( 1 ) 


A 


( 1 ) 



cHd 


CUD 


velocity of neutrals, m/sec, ui+vi+wk 

finite difference approximation of i = 1,2,* • *,17 

eigenvalues of [A], i = 1,2, •••,17 

finite difference approximation of X 

permeability of vacuum, 4tt x 10"“^ volt-sec/amp-m 

ion mass density 

electron mass density 

neutral species mass density 

effective collision frequency of species a with species b 
average collision frequency of species a with species b 
intersection of sets C and D 
union of sets C and D 

f plus its first and second derivatives are continuous 


Subscripts 


k,£ 


X and t co-ordinates, ~ c()(kAx, £At) 


Notations 

[ ] matrix, either square or column 

3-D vector 
column matrix 

(f)(j) line segment from point (f> to point (f)* 
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INTRODUCTION 

The physical problem of this study is to analyze how introducing 
a disturbance, which results in waves propagating, affects a one- 
dimensional three-fluid plasma flow. Previous studies of waves in 
plasmas have fully explored the use of the linearized governing equations 
in terms of finding various velocities as functions of the frequency. 

In addition, studies using a fully ionized two-fluid model have been 
performed using the nonlinear equations. However, in neither case 
have the governing equations been actually solved given an initial 
equilibrium state and some forced disturbance at a particular point as 
a function of time. The purpose of the present study is to solve 
the governing nonlinear equations of the three-fluid plasma given an 
initial equilibrium state and some forced disturbance at a particular 
point as a function of time. The equations are then linearized and 
solved using the same initial state and forced disturbance. 

A partially ionized gas flowing in the x-direction which is com- 
posed of ionp, electrons, and neutrals, all of which interact with 
each other through collisions, is considered. Thus a three-fluid 
mathematical model of the gas is chosen, where the three fluids are 
the ion, electron and neutral species. As previously stated, two 
separate models are considered. First, the nonlinear equations are 
used and then the linearized system of equations is considered. This 
linear system is obtained from the nonlinear equations. The numerical 
values of such quantities as collision frequencies, temperatures, and 
initial number densities, for the purpose of later solving a particular 
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(Example 9 are considered to be those which might exist In an Ionized 

gas at atmospheric pressure. Additional assumptions are that each 

fluid obeys the Ideal gas law and viscosity effects are negligible. 

As will be seen later, each fluid Is also assumed to be Isothermal. 

With this model of the plasma the dependent variables, which are 

all assumed to be functions of only the two Independent variables x 

and t, become u. , u , u , v, , v , v , w, , w , and w , which are the 
* i’ e*n* 1’ e*n* 1’ e’ n 

velocity components of the Ions, electrons and neutrals In the x, y, 

and z directions: , N and N , which are the number densities of 

’ 1’ e n’ 

the Ions, electrons and neutrals; and E^, E^, B 2 and which 

are the components of the electric and magnetic fields. 

Writing the continuity and momentum equations f or . the ions, 
electrons and neutrals; Maxwell's equations; and the equations of 
state for each fluid, all in scalar form, a system of 17 quasi- 
linear first order partial differential equations which can be 
written in matrix form as shown, is obtained. 

[uj + [A][U^],= [B] 

where 

[UJ = [f] a„d [OJ . [f] . 

Similarly, a single matrix equation can be formed from the linearized 
system of equations. Since it is shown that the eigenvalues of [A] 
are all real and the corresponding eigenvectors are linearly inde- 
pendent, the system is classified as a hyperbolic one. 

A numerical solution of first the nonlinear system of equations 
and then the linear system, using the same initial values for the 17 
variables listed previously plus a forced disturbance at x = 0, Is 
i;o be found. A comparison of these two solutions should then yield 
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some insight Into the limitations of a linearized approach. The 
disturbance imposed, which is the specif ideation of boundary values 
for some of the variables, is not arbitrary if the existence of a 
unique solution is desired. 

A finite difference technique is employed to find the numerical 
solutions of the two systems of equations for a particular example 
problem. The original system can be transformed in such a manner 
that the matrix [A] becomes a diagonal matrix by performing a trans- 
formation of the form 

[U] = [T][V] 

where [T] is an orthogonal matrix whose columns are composed of the 
unit orthogonal eigenvectors of [A] . It can be seen from this trans- 
formed system that the sum of the time and space derivative in each 
equation can be considered to be a time derivative along the charac- 
teristic associated with that equation. Two-point forward differences 
along the characteristic are then used to replace this time derivative. 
It is shown that this difference is the equivalent of the replacement 
of the original time derivative by forward differences and the spatial 
derivative by either backward or forward differences, depending upon 
whether the associated characteristic is positive or negative. The 
consistency, convergence and stability of the difference equations 
are then investigated. 
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LITERATURE REVIEW 

As previously stated, many studies, especially with the linearized 
equations, have been done in the area of plasma waves. Perhaps 
Tanenbaum and Mintzer^ have presented the best linear analysis by 
assiaming a partially ionized three-fluid mathematical model of the 
plasma. Harmonic plane wave solutions were assumed and expressions 
relating wave number and frequency were then obtained. A rather com- 
prehensive listing of other studies in this area is included in Ref. 1. 

2 - 3 

Other authors , among them Adlam and Allen , Banos and Vernon , 

4 5 6 

Montgomery and Saffman ’ , have studied nonlinear waves in collision- 
free, fully ionized plasmas; i.e., the governing equations are not 
linearized. The major differences between these studies lie in the 
assumed direction of the applied magnetic field and in the neglect 
or retention of pressure terms in the momentum equations. In all the 
nonlinear studies encountered the physical situation was that of a 
disturbance traveling with a constant speed into an undisturbed plasma. 
Thus, the governing equations could be written in the reference frame 
of the wave and all time dependence was eliminated. 

No work in the literature has been found where the multi-fluid 
equations, either linear or nonlinear, describing a plasma flow were 
completely solved subject to particular initial values and boundary 
conditions. Thus, quite naturally, no comparison of the linear and 
nonlinear solutions of such a problem has been possible. 

Several authors have studied the mathematical aspects of the 
problem considered in the present study. Lax^ has a very good 
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discussion on the solution of hyperbolic systems of first order partial 

8 

differential equations, as does Jeffrey and Tanuiti . The latter, as 

9 

well as Courant, Rees, and Isaacson , gives a discussion of the develop- 
ment of a numerical solution of the pure initial-value problem for 
quasi- linear systems. Thomee^^ employs a difference scheme to illus- 
trate the existence and uniqueness of a solution of the mixed initial- 
boundary value problem for quasi-linear systems. - The present study 
utilizes this particular scheme, with a discussion on how it is 
arrived at, to obtain a solution of an example problem. The conver- 
gence analysis given in Ref. 9 is applied to the particular diagonal 
system of equations with which the present study is concerned and the 
consistency and stability analysis is taken from Isaacson and Keller^^. 
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SECTION I 

The problem of this study is to determine numerically how a, 
disturbance affects a one-dimensional three-fluid plasma flow. The 
mathematical model is formulated using first the three-fluid nonlinear 
governing equations and then the corresponding linearized system of 
equations. A comparison between the two cases is made for a particular 
example to obtain some insight into the limitations of a linearized 
approach. In this section the basic governing equations are obtained, 
subject to the various assumptions imposed upon them. This scalar 
system of equations is then cast into a single matrix equation and 
classified as to its particular type. A discussion of the mathematical 
problem follows. 

1. Basic Equations and Assumptions 

In this study the model of the fluid used is commonly called a 
three-fluid model. In this model the plasma is assumed to be composed 
of ions, electrons, and neutral particles which interact with each 
other through collisions. The degree of ionization is assumed to be 
fixed so that the three-fluid mixture can be described completely by 
Maxwell’s equations, the transport equations expressing conservation 
of mass and momentum for each of the ion, electron and neutral species, 
and the equations of state for the three gases. The following assump- 
tions are made: 

(1) Each gas obeys the ideal gas law. 

(2) Collisional effects among the three interacting gases 
allow for conservation of the total momentum of the system. 
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(3) Each gas is Invlscld. 

(4) Each gas is isothermal • 

The following set of equations^ is therefore used to describe the 
plasma. 

(1) The Maxwell equations: 

7 • B - 0 

’ * ® - V + Vo If 

7 


« - i- «i - V 

o 


7 X ~ 

V X n 




(2) The mass transport equations: 


+ P 7 
Dt ^e 


7=0 

e 


Dp. 


7 ^ = 0 


Dp . 

+ p 7*7 =0 

Dt ^n n 


(3) The momentum transport equations: 

^ — (E + 7 X B) - — - V (7 - 7 ) - V (7 - 7 ) 

Dt m e p eiei enen 


^ ^ ^ ^ VP ^ ^ ^ 

— -i = — (E + 7. X B) - V. (V. - V) - V. (7 - 7 ) 

Dt ^ *^i ie i e in i n 

DV„ VP ^ ^ ^ ^ 

2- - V (7 - 7 ) - V . (7 - 7 , ) 

Dt p^ ne n b ni n i 

(4) The equations of state: 

P = N KT 
e e e 

Pi - N^KT^ 



184 


P = N KT 
n n n 

where, as stated previously, T^, T^, and are all equal to constants- 

The collision frequencies which are used for electron-ion 

collisions, for ion-neutral collisions, etc*) are effective colli- 

sion frequencies for momentum transfer between particles. If is 
the average number of collisions per second which each particle of 

type a has with particles of type b, then the effective collision fre- 

.K 1 

quency for momentum transfer can be expressed as 


"ab ' + ”b> 

As a consequence of this definition 

Pa^ab = Pb^a ’ 

hence, there is no loss of total momentum in collisions among the 
particles in the fluid. 

If the additional assumption is now made that all dependent 
variables are functions of only x and t, and if 


Cl = In 
C2 = In Ng 


?3 = In Nn , 


then the vector equations can be expanded into the scalar system 


t X "^x 


?2 + u ?2 + u = 0 

e e 

t XX 


?3 + U + U =0 

n n 

t XX 


( 1 . 3 ) 
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t X X e 


+ V . (u , - u)+v (u-u) 
el i e en n ' e 


u + &2?3 + u u = V (u - u ) + V (u - u ) 

n n n ni i n ne e n 

t X X 


^^2 + w^Bi - u B3) + V (v^ - v^) + - v^; 

t X i 


V + 


u = - ^ (E2 + w^Bi - u B3) + V (v. - V ) 

ee m e-^ e ei i e 


+ V (v - V ) 
en n e 


V 

n 


t 


+ 


u V 
n 


X 


V , (v. - 
ni X 


"n> 


V (v 
ne e 




w. + u.w. = (E3 + u.Bj - v.Bi) + V. (w - w,) 

. 1 1 m. 1 ^ 1 ^ ie e 1 

t XX 




W + U W (E3 + uBo-vBi)+V .(w, - w) 

ee m ^ e ^ e ^ ex x e 

t X e 


+ V (w - w ) 
en n e 



u w 
n n 


V . (w , - w ) 
nx i n 


V (w 
ne e 


w 

n 


) 


El + (u^ + u^)Ei = c2y^e(u^ exp?i - exp?2) 


E2 + c 2 B 3 
t X 


c2y^e(v^ exp?2 " exp?i) 


E3 

t 


c 2B2 = c2y^e(w^ exp?2 “ exp?i) 


( 1 . 5 ) 

( 1 . 6 ) 

( 1 . 7 ) 

( 1 . 8 ) 

( 1 . 9 ) 

( 1 . 10 ) 

( 1 . 11 ) 

( 1 . 12 ) 

( 1 . 13 ) 

( 1 . 14 ) 


( 1 . 15 ) 
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(1.16) 


B3 +E 2 »0 

t X 


where 




KT 


m 

n 


(1.17) 


The reason for assuming that each gas is isothermal and then for writing 
the equations in terms of the natural log of the number densities will 
be discussed in a later section involving the transformation of the 
equations into a diagonal form. 

The system of equations (1.1 - 1.17) is composed of the full non- 
linear governing equations. It is now desired to linearize the system 
by replacing each dependent variable by some constant part plus a 
fluctuating component; i.e.. 


(})(x,t) = Ip^ + 4>' (x,t) 

where the fluctuating component <()* is assumed to be small enough that 
second order terms can be neglected. In order to have the same form 
as the non-linear system, let 


= N^/N^ 


and 




53 - n'/n 
n n 


Thus, the linear system becomes: 


q + u + uj: = 

t ox X 


0 


(1.18) 
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52 + u 52 + u* =0 

t ox ®x 


?3 +u 5 o + u =0 
n 3 n 

t ox X 


u' + ajs; + u; 
t X ox 


— (E^ + Bg - + e; 

1 o o o o o 

+ B 3 + B 3 B 2 - B 2 w^) 


+ - u. + u - u, ) 

ie e 1 e 
o o 


o o 


u + + u u = 

e. e ^ e e 
t X o X 


■ "S" ®3 - Wg B 2 + e; 

e o 00 00 


+ Vg ®3 + ®3 \ “ ®2 Wg) 

o o o o 


o o 


en n e n e 
o o 


^ X o X o o 


+ V (u - u + u - u*) 
ne^ e n e n 
o o 


^ <^2 + "1 Bi - B3 + E* + Bjw^ - i 

toxioo 00 o 

” B3 U*) + V (v ~ V. + v' - v!) 

3 1 ie e i e i 


+ V (v - V + V - V. ) 

in n i n i 
00 


(1.19) 

( 1 . 20 ) 


( 1 . 21 ) 


( 1 . 22 ) 

(1.23) 


(1.24) 
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V + U V 

e e 

t ox 


- ^ (E^ + B3 + e [ + B^w^ 


e o 


o o 


- U Bg - Bg u*) + V , (v . - V + v! - v') 

e = ei i e 1 e 


+ V (v - V + V* - v' ) 
en n e n e 
o o 


(1.25) 


7' + u v' = V . (v . - V + v' - 

n n ni' i n i 


o X 




+ V (v -V +V -v) 
ne e n e n 
o o 


(1.26) 


+ Ui ^ (Eg + B2 - Bjv^ + E^ + B2 + B2 - B^v!^) 


OX 1 


o o 


+ + »; - w^) + v^_^(w - » 

00 o c 


+ w* - w!) 
n X 


(1.27) 


’ . * 
w + u w 
e e 

t ox 


^ (®3 + "e 

e o 00 


B,v + e' + u b' + B, u' 
1 e 3 e 2 2 e 

o 00 


~B,v')+v .(w. -w +w! - w') 
1 e ex X e x e 


+ v (w -w +w-w) 
en' n e n e 
o o 


(1.28) 


w* + u w’ = V . (w . - w + w’ - w’) 

n n nx i n i n 


o X 


+ v (w -w +w-w) 
ne e n e n 
o o 


(1.29) 


e' + (u^ + )e' = '^e 

t oox 0000 o 


- N u. - u. N - N u!) 
e i i e ^2 e 


00 00 


(1.30) 
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(1.31) 

(1.32) 

(1.33) 

(1.34) 

Equations (1.1 - 1.17) comprise a non-linear scalar system of 

seventeen first-order partial differential equations involving the 

seventeen unknowns u., u , u , v. , v , v , w. , w , w , E,, 

i’ e’ n’ i’ e* n’ i* e’ n’ i 

^ 3 » ^ 2 > ® 3 * ^ constant and thus is knoxm. The above 

equations are now cast into a single matrix equation so that they can 
be transformed into a diagonal system. It can easily be seen that these 
equations may be written as 

[U^.] + [A][uj = [B] (1.35) 

with 

[A] = [A] ( [U] ) and [B] = [b] ( [U] ) 

where [U] and [B] are column matrices and [A] is a square 17 x 17 
matrix, as shown. Here, 

- [0^1 

[B], - [BJ 


E 9 + c^Bo = c^y e(v N + v N Co + N v* 
0 oee ee^ ee 


00 00 


- “i '’1 - '1 "i \ ''!> 


00 00 


Eo - c^b' = c^y e(w N + w N Co + N w' 
^ ^ oee ee 2 ee 


.3 w 

t X 


00 00 


- Ni Wi - w^ Cl “ w^) 


00 00 


~ ^3 


= 0 




b; +e’ 


= 0 


2. Matrix Formulation and Classification of the Equations 


and 
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where the t and x of course refer to partial differentiation. 

Ci(x,t) 

?g(x,t) 

u^(x,t) 

Ug(x,t) 

u^(x,t) 

? v^(x,t) 


[U] = 


w^(x,t) 
Wg(x,t) 
W^(x,t) 
Ej (x,t) 
E2(x,t) 
EgCx.t) 
B2 (x,t) 
B„(x,t) 
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[B] 


0 

0 

0 


e/m.(E, + v.B- - w.B,) + v. (u - u.) + v. (u 
±1 13 ±2' le e 1 in n 

-e/m (E, + V B„ - w B„) + v . (u. - u ) + v (u 
e l e 3 e 2' ei 1 e en n 

v.(u,-u)+v (u -u) 
ni 1 n ne e n 

e/m. (E„ + B,w. - u.B,) + v (v - v . ) + v, (v 


le' e 


in n 


-e/m (E„ + B,w - u B„) + v . (v. - v ) + v (v 
' e 2 1 e e 3' ei i e en n 


v.(v.-v)+v (v -v) 
ni 1 n ne e n 

e/m, (E., + u.B„-v. B,)+v. (w - w.)+v. (w 
13 i2 11 lee i in n 

-e/m (E„ + uB„ - vB.) + v ,(w, - w ) + v (w 
'e 3 e2 el ei i e' en n 

v,(w.-w) + v (w - w) 
ni 1 n ne e n 

e(u e^l - u.e^2) 

o e 1 

e(v e^2 - y.e^l) 


-y e(w e^2 _ w.e'^l) 


0 

0 


^^ 1 > 


" 1 > 

-e) 


w.) 


Similarly, the linearized system of equations (1.18 - 1.34) could 
also be written as a single matrix equation. A system of equations 
such as equation (1.35) is hyperbolic if the coefficient matrix [A] 
contains only real eigenvalues and is diagonalizable^; i.e., if one 
can find a matrix [T] such that 


> 


[T]-1[A][T] = [D] 
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where [ d ] is a real diagonal matrix. Such a [T] can be found if the 
eigenvectors of [A] are linearly independent. Setting det[A - Xl] = 0, 
and solving for the roots of the resulting polynomial, the eigenvalues 
of [A] are found to be 


^3 


X, 


iO 


U1 


^12 


^13 


^14 


'15 


'16 


'17 


-c 

-c 


u - a 
e e 


Ui - a. 


u - a 
n n 


u, + a. 
X i 


u + a 
n n 


u. 

X 


u 

e 


u 

e 


u 

n 


u 

n 


u. 

X 


u 

e 


c 


c 


*f u 

e 

+ a 


e 


and the corresponding eigenvectors, as obtained from 

[A - X.I] [X^] = [0] 

where [X^] is an eigenvector corresponding to the eigenvalue 
given on the following page. 


are 
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Xi - (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -c, 0, 0, 1) 

X2 =• (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, c, 1, 0) 

X3 = (0. - 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 

X4 = (- — , 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 

X5 = ( 0 , 0 , - 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) 

X6 = (•—, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0. 0, 0) 

X 7 = (0, 0 , 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 

Xs = (0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 

X9 = ( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) 

Xio = (0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0) 

Xu = (0. 0. 0. 0. 0. 0. 0. 0. 0. 0, 1, 0, 0, 0, 0, 0, 0) 

X12 = (0, 0, 0, 0, 0, 0, 0 , 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ) 

Xi3 = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0) 

Xi4 = ( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 ) 

Xi5 = (0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 

ae 

X16 = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, c, 0, 0, 1) 

Xi7 = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -c, 1, 0) 

Forming a matrix whose columns (or rows) are composed of these eigen- 
vectors and then evaluating the determinant of that matrix, one finds 
its value is not zero; thus, the eigenvectors above are linearly in- 
dependent. Therefore, since the eigenvalues of [A] are real and the 

corresponding eigenvectors are linearly Independent, the matrix [A] 
can be diagonalized to yield a real diagonal matrix, and thus the 
system of equations, represented by equation ( 1 . 35 ), is hyperbolic. 

3 . The Mathematical Problem 


It has been stated that the physical problem Involved in this 
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study is to impose some disturbance upon a plasma initially in equi- 
librium and then determine the effect at later times and spatial 
positions. Thus, a mixed initial-boundary value problem is being 
considered where values of variables at t = 0 are known over some 
range of x and values of some variables are known at x - 0 as a function 
of time. As discussed in Ref. 7, the number of dependent variables 
which may be assigned values on the boundary x = 0 is not arbitrary. 

This is discussed in more detail in the next chapter after the equations 
have been cast in a diagonal form. In summary, the mathematical pro- 
blem is to find a solution of 

' [Uj.] + [A] [U^] = [B] 

given the initial values [U(x,o)] and some of the boundary values 
[U(o,t)]. 

The existence and uniqueness of a solution is discussed in a 
later section. In this discussion and in discussions about the solu- 
tion technique the nonlinear system will be considered; however, the 
same discussion could be applied to the linearized equations. 
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SECTION II 

The first part of this section is concerned with the transfor- 
mation of the matrix [A] into diagonal form. Next the boundary condi- 
tions; i.e., the imposed disturbance, are discussed in general and 
then, along with the initial values, for a particular example modeli 
In the concluding section the conditions which must be met in order 
for a unique solution to exist are considered. 

1. Tranformation of the System into a Diagonal Form 

It is advantageous to transform [A] into diagonal form for several 
reasons. First the existence theorem^^ (discussed in the last section 
of this chapter) applies to such a diagonal system. In addition, a 
diagonal form is needed in order to determine what variables, or 
relations such that these variables can be calculated, can be speci- 
fied on the X = 0 boundary as a function of time. 

Previously when the system was classified as being hyperbolic it 
was stated that one could find a matrix [T] such that 

[T]-Ha][T] = [D] (2.1) 

where [D] is a real diagonal matrix. The determination of the trans- 
formation matrix [T] proceeds as follows: In Section I the eigenvalues 

and corresponding eigenvectors of [A] were listed. The first step in 
the formation of [T] is to find the corresponding set of unit orthogonal 
eigenvectors; i.e., the set such that 

X.^ X. = < 1, if i = j 

^ ^ lo. if i # j 


( 2 . 2 ) 
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Since it has been shown that the eigenvectors of [A] are linearly 

12 

independent, the Gram-Schmidt orthogonalization procedure can be 
used to find a set of unit orthogonal eigenvectors. In Appendix A 
such a procedure is illustrated. Once these are found, [T] , which is 
shown on the following page, with 



is formed by letting its columns be composed of these unit orthogonal 
eigenvectors. This method of forming [T] creates an orthogonal matrix; 
i.e. , 

[T] -l = [T]’^ (2.3) 

which proves to be useful later. In addition, with [T] formed in the 
manner explained, [D] is a diagonal matrix containing the eigenvalues 
of [A] as its diagonal elements. A discussion of such a similarity 
transformation can be found in any book on matrices. With the [T] 
matrix having been formed, the discussion of the transformation of 
equation (1.35) into a diagonal form can be continued. 

First make the transformation 

[U] = [T][V] (2.4) 

in equation (1.35), which yields 

[T] JV] + [T][V]^ + [A]([T]^[V] + [T][V]^) = [B] 

[T][V]^ + [A][T][V]^ - [B] - [T]JV] - [A][T]^[V] . 


or 
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Pre-multlplying the preceding equation by [T]“^ one obtains 
[V]^+ [T]-1[A][T][V]^. [T]-1[B] - [T]-1[T]JV] 

- [t]-1[a][t]^[v] 

Then making use of equation (2.1) yields 

[V]^.+ [D][V]^ = [C] (2.5) 

where 

[C] = [T]-1[B] - [T]-1[T]JV] - [T]-1[A][T]^[V] 

Equation (2.5) is the desired diagonal form of equation (1.35), 
except that [C] contains derivatives. However, from an inspection of 
[T] it is seen that 

[T]j, = [T]^ = [0] . (2.6) 

Therefore, using this along with the fact that [T] is an orthogonal 
matrix yields 

[C] - [T]^[B] . (2.7) 

Thus, instead of having to find [T]““^ in order to obtain [C] one merely 
has to take the transpose of [T] . If the basic equations had not been 
written in terms of the natural log of the number densities, which 
could only be done by assuming that each species was isothermal, then 
equation (2.6) would not be true. Therefore, the expression for [C] 
would have contained derivatives, which would have resulted in a severe 
complication. 

In conclusion, the original system of equations given by equation 
(1.35) has been changed into the diagonal system below 

[V]^. + [D][V]^ » [C] (2.8) 


with, in general. 
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[D] = [D](x,t,[V]) and [C] = [C](x,t,[V]) 

where 

[V] = [T]^[u] 

and 

[C] = [T]^[B] . 

[V] , [C] , and [D] are shown in the following along with [U] in terms of 
[V]. 


— — 



Vi (x,t) 


DyCcBg - EP 

Vj (x,t) 


D^CEg + cB^) 

V3 (x,t) 



V4 (x,t) 


Di(u. - a^?i) 

V5 (x,t) 


- V 3 > 

Vg (x,t) 



V7 (x,t) 


° 3<?3 + 

Vg (x,t) 


V. 

1 

Vg (x.t) 


w. 

X 

Vio(x,t) 


V 

e 

Vii(x,t) 


w 

e 

V12 (x, t) 


V 

n 

VigCX.t) 


w 

n 

Vi4(x,t) 



VisCx.t) 

i 

D2(?2 + 

Vig(x.t) 


DyCcE^ + B3) 

Vi^Cx.t) 


D4(B2 - CE3) 

— 


— - 


[C] is a column matrix with the following as its elements. 

Cl = - D^c2y^e{Vioexp[D2(Vi5 - ajg)] - V8exp[Di(Ve - a.V^)]} 

= Di^c2y^e{Viiexp[D2(Vi5 - a^Vg)] - Vgexp[Di(Vg - a^V^)]} 

C 3 = [Vi4 + VioD^(cVi + Vig) - ViiD^(cV2 + V^^)] + V^. 

e 

[Di(V 4 + a^Vg) - D2(V3 + a^Vis)] + + a^V7) 

- ^2(V3 + ajis)]} 
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C4 = + VgD^CcV^ + V,^) - V9DJCV2 + V17)] + V^^[D2 

i 

(V3 + %V,5) - D,(V^ + a^Vg)] + v^^[D 3<V5 + a^V^) - D, 
(V^+a^Vg)]} 

C5 = + V7>3 + + Vl5> 

- 5 + V 7 >^^ 

Cg - a^C^ 

^7 “ ®n^5 

S = ^ [^^(-^^16 - + ®1^9 - + ^VgHcV^ + V,g)] 

+ + ^in^^l2 - ^8> 

Cg “ ^ [D^(V2 - cV^p + D^D^(V^ + + ^17> ’ ^1^8^ 

i 

+ '■ie<''ll - '9^ '■ln<''l3 ' V 

<=10 - - f- ^('=''16 - ''P + Vn - W<-'‘3 * S''l5>('=''l ’le'] 

e 

+ '■el <''8 - ’' 10 ) + ''en<''l2 ‘ ''lO> 

Cji “ “ ^ ■*■ '*' ■*■ ^^17^ “ ®1^10 

e 

+ ^>31 ^^9 ' Vji) + v^^(Vi3 - Vii) 

^12 = - ^12) + ^ne^^lO " ^^12) 

^13 = %±(V 9 - V13) + - V13) 

Ci4 = c2p^e{D2(V3 + a^V^g) exp[Di(Vg - a^V4)] - + a^Vg) 

exp[D 2 (Vj 5 - a^Vg)]} 
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and 
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[U] = 


SgCx.t) 

u^(x,t) 

Ue(x.t) 

V^(x,t) 

w^(x,t) 
Wg(x,t) 
W^(x,t) 
Ei(x,t) 
(x,t) 
EgCx.t) 
B2 (x,t) 
BgCx.t) 


DiCVe - 

- Vs) 
“sWy - Vs) 
+ Vs) 
■>2 <’3 + V15) 
»3«5 + V7) 


D,(cVj 5 - Vj) 
D^CVj - CV„) 
D^CcVj + V17) 

+ ’le) 


2. General Discussion of Boundary Conditions 

Previously it was discussed how the physical problem of imposing 
a disturbance upon the flow becomes the mathematical problem of finding 
a solution of the governing equations given the initial values of the 
dependent variables and the values of some variables on the x * 0 
boundary, which represents the disturbance. Of course, instead of 
equation (1.35), the problem now is to find a solution of the diagonal 
system (2.8) and then return to the original system through the trans- 
formation [U] = [T] [V] . In connection with the boundary conditions 
it has also been discussed how the number of variables specified, or 
the number of relations such that these variables may be calculated, 
is not arbitrary. 
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The eigenvalues of [A] (also of [D]) are called characteristics 
and may be shown to be equal to dx/dt; thus, they may be sketched 
as curves on the x-t plane. Let be the number of positive eigen- 
values of [A]. Therefore, there will be characteristic curves, 
corresponding to the positive eigenvalues of [A] , which lie to the right 
of the origin of the x-t plane as shown below. 



When the system was transformed into diagonal form the [T] matrix 
was arranged so that these characteristics are the last eigen- 
values of [D] . Therefore, the following conditions must be imposed 
on [V] along the x = 0 boundary^: 

(1) the values of > ’ * * > ^17 prescribed 

along the x = 0 boundary as functions of time, or 

(2) more generally, relations among ,V 2 , * • * ,V^y are 

given along x = 0 with the stipulation that it is 
possible to compute » • • • >^17 these 

relations . 

3. Formulation of the Example Problem 

From an inspection of the eigenvalues, or characteristics, as 
given on page 18, it is seen that if u^, u^, and u^ are considered to 
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be negative at the origin, with |u^| > a^, |u^| > a^ and |u^| 
then only the last three characteristics lie to the right. Thus, for 
this particular case, one must specify ^16 , and V^y, or three 

relations such that they can be calculated, on the x = 0 boundary as 
functions of time. If these particular restrictions are not forced 
upon u^, u^, and u^, then one must specify more variables, depending 
upon the new restrictions. 

Now if, on the x » 0 boundary, the assumption is made that 

N^(0,t) - N^(0,t) 

then one can show, from the expressions for the U’s in terms of the 
V’s given on page 27, that 

VisCO.t) = ^ {Vg(0,t) - + aJgCO.t) 

where Vg(0,t), V^(0,t) and V^COjt) will have been calculated in the 
solution technique by the time is calculated. In addition, 

the assumption is made that the imposed disturbance is that of 
forcing the electric and magnetic fields in the y-direction to be 
certain functions of time at x = 0; i.e., 

E 2 (0 , t) = g]^ (t ) 

B2(0,t) = g^Ct) 

where, as will be seen later, g^^ and g^ must satisfy certain condi- 
tions in order for one to be assured of a unique solution existing. 
With the above, it can be shown from the expressions on page 203 that 

i gi(t) + Vi(0,t)} 

ViyCO.t) * ^ g2(t) - cV2(0,t) 


and 
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where, as on bottom of previous page, V^(0,t) and V2(0,t) will have 
been calculated before V^g(0,t) and V^^(0,t). Instead of and 
one could have forced Eg and Bg or E^ and Eg or B2 6uid Bg at x * 0 
and still have been able to solve for Vj^g(0,t) and V^y(Ojt). 

Initially it is required that the plasma flow be in equilibrium. 
Thus, remembering to satisfy the restrictions previously placed upon 
u^, u^, and u^ plus using number densities that might exist in an 
ionized gas at atmospheric pressure, the particular initial values 
assumed are 


?l(x,0) 


ln(1021) 



ln(1021) 

? 3 (x ,0) 


In (3. 62 X 102*t) 

u^(x,0) 


-1500 m/sec 

u^(x,0) 


-1500 m/sec 

u^(x,0) 


-1500 m/sec 

v.(x,0) 


0 

v^(x,0) 


0 

y^(x,o) 


0 

w^(x,0) 


0 

w (x,0) 

S 1 


0 

w^(x,0) 


0 

Ej (x,0) 


0 

E2 (x,0) 


0 

Eg(X,0) 


0 

B2(x,0) 


0 

Bg(x,0) 


0 


In order to find the corresponding initial values of the diagonal 
system, the transformation 

[v](x,0 ) = [t]-1[u](x,0 ) 
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;Ls used to yield 


[V] (x,0) 


Vj (x, 0 ) 


0 

V 2 (x, 0 ) 


0 

V 3 (x, 0 ) 


D2{-1500 - a^lndO^l)} 

V 4 (x, 0 ) 


Di{-1500 - a^ln( 1021 )> 

V 5 (x, 0 ) 


Dgi-lSOO - a^ln(3.62 x lO^**)} 

Vg (x, 0 ) 


Di{ln(1021) - 1500 a^} 

V 7 (x, 0 ) 


D3{ln(3.62 X lO^^^) - 1500 a } 

Vg (x, 0 ) 

33 

n 

0 

Vg (x, 0 ) 


0 

Vio(x.O) 


0 

VjiCx.O) 


0 

v^^Cx.o) 


0 

VigCx.O) 


0 

Vj^Cx.O) 


0 

Vjg(x,0) 


D 2 {m( 1021 ) _ 1500 a } 

e 

V^g(x.O) 


0 

VjyCx.O) 


0 

— 


' 


The temperature of each gas Is taken to be T = lO.OOOOK. and T = 

e » » £ 

Tn = 200QOK which yields thermal velocities of a^ = 3.9 x 10^ m/sec, 
a^ = 640 m/sec, and a^ = 640 m/sec. Thus the -1500 m/sec assumed for 
the initial value of u^, u^, and u^ satisfies the restrictions dis- 
cussed previously. 

Values for the collision frequencies encountered in the species 
momentum equations are also needed. The effective frequencies can be 
calculated, as discussed in Section I to yield the values below. 

These calculations require values for the average collision frequencies 
which are obtained in Appendix B. 

= 3.73 X 10^/sec, = 2.95 x 10®/sec 
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V . = 2.76 X 10^^/sec, v = 1.44 x 10^^/sec 

ei ’ en 

V . = 0.81 X 10^/sec, V = 5.36 x 10^/sec 

ni ’ ne 

In conclusion, particular initial values and boundary conditions 
(the imposed disturbance) , plus values for the collision frequencies 
have been obtained, for which a solution of equation (2.8) is required. 
In addition, the linearized system of equations is also diagonalized 
and solved using the same values listed above. 

4. Compatibility Conditions and the Existence Theorem 

In this section the concept of a domain of dependence is 
discussed. 



All points within the region bounded by the maximum characteristics 
(max |dx/dt| = c) drawn from the end points of the initial interval 
i.e., 0^, are dependent upon only the initial values of the 


variables. For example, values at are only dependent upon that 
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portion of the initial interval intersected by the maximum positive 
and negative characteristics dravm backc-7ard through P-^. This inter- 
sected portion of is called the domain of dependence of P.^^. All 
points of 0^ are dependent upon a portion of the initial interval as 
well as some of the x = 0 boundary. For example, values at are 
dependent upon that portion of the initial interval from x = 0 to 
where the maximum negative characteristic, drawn backt-rards through 
P2J intersects it as well as that portion of the boundary up to where 
the maximum positive characteristic intersects the t-axis. Thus, 
if a solution exists it can only be within 0(0 = 0j^U 02)since points 
outside this domain would depend upon initial values which are not 
given. Therefore, if the initial interval is it makes no sense 
to specify boundary conditions for times exceeding t , where t = 

X 

o 

' • 

c 

Equation (2.8) may be written as 

[V]^. - [Di][V]^ = [C]; [Dj = -[D] 

with 

[V] = [f°] on il>°; [f°] = [f°](x) (2.9) 


and 


where 


[V“] = [f ] on ip~; [f“] = [f"](t,[v'*']) 


( 2 . 10 ) 


[Di] = 


[dT] [0] 

[0] [DI] 


[D^] > 0 and [Dl] < 0 


and [v"**] and [V ] correspond to the partitioning of [D ] shovm above, 
and Jp are as shown on the previous figure. 

Assuming that the closed sets 


= { (x,t, [V]) |0 i X 5 x^, 0 ^ t 2 5i, I [V] - [f°] I i e} 


and 



210 


fi" = {(t,[V+])l 0 ^ t ^ 6l. 1[V+] - [f°"^](0)| ^ e} 
exist, the following existence theorem taken from Thomee^^ can be 
stated. 

Existence Theorem ; If [f°]eg^ on [C]e^^ on S2, [Di]e5^ on 

and [f on, H , plus if certain compatibility conditions are 

satisfied, then there exists a 5 > 0(5 < such that a solution 
exists in 0^, where 0° = 00(0 £ t ^ 6}. In addition, the 
solution is unique. 

The compatibility conditions which must be satisfied in the 
hypothesis of the existence theorem are: 

(1) [f"](0,[f°^](0))=[f°"](0) 

(2) -^P- (0,[fp(0) ) (0,[f°'^](0) ){[Di](0,0,[f°](0) ) 

. 3[V+] 

-4P- (0) + [C‘*’](0,0,[f°](0) )} = [Dl].(0,0,[f°](0) ) (0) 

+ [C"](0,0,[f°](0) ) 

where — is the matrix with columns ^ ^ 1,2, •••,14. 

HA ■ 

Condition (1) expresses the continuity of [V] at the origin; 

whereas, condition (2) essentially expresses the fact that the 

differential equation applies at the origin. It is obtained in the 

follox^ing manner. With the partitioning of [Dj] , [v] and [C] pre- 

•* 

viously illustrated, equation (2.8) may be partitioned as below. 

[V'*']^ - [I>t][v'^]x = (2.11) 

and 

[V]^. - [Dl][v"]^ = [C“] (2.12) 

Mow using equation (2,9) it can be seen that applying the equation for 
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[V ] above at the origin yields 

(0,0) = [Dl](0,0,[f°](0) ) (0) + [C“](0,0,[f°](0) ) 

(2.13) 


However, equation (2.10) states that [V ] is specified on the x = 0 
boundary as a function of time and [V*^] . Therefore the time derivative 
of the matrix of specified functions must be the same as the time 
derivative above. Therefore, 

(0.0) = -^Ip (0.0) = -^Ip (0,[f°"**](0) ) 

+ 1LO (o,[f° ](o) ) (0,0) (2.14) 

but, 

(0,0) = [Di](0,0,[f°](0) ) (0) 


+ [C‘*'](0,0,[f°](0) ) . (2.15) 


Substituting this into equation (2.14) and then the resulting expression 
into equation (2.13) yields the second compatibility condition. 


From the previous discussion of the boundary conditions for the 


example problem 


[f"](t,[f°p 


whereas , 


^ {Vg(x,0) - a^Vi^(x,0)} + a^3(x,0) 
c Si(t) + V^(x,0)} 


§2(t) - cV2(x,0) 


[f ° ] (X) 


Vi5(x,0) ' 

Vi6(x,0) 

Vi7(x,0) 


(2.16) 


(2.17) 
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From the assumed initial values given on page 207 it is seen that 
Vj^(x,0) = V 2 (x, 0 ) = VjgCxjO) = Vjy(x,0) = 0; thus, using this and 
applying condition (1) yields 





^ {Vg(0,0) - a^Vij(0,0)} + a^V3(0,0) 


Vi5(0,0) 


= 

0 

^ 82(0) 


0' 


Making use of the relations between the V's and U's on page 203 it 
is seen that 


N^(0,0) = N^(0,0) 

which is satisfied. Also from the above 

gj( 0 ) = 0 and § 2 ( 0 ) = 0 . (2.18) 


Now, before applying the second condition observe that 


^ (t.tf”"]) - 

+ 

Also, since [f° ] consists of the first 14 elements of [V] (x,0) and 
[f° ] the last three 


0 

1 1 

c D 4 dt 

1 ^§2 

D 4 dt 


ALf° 3 , 




dx - dx 


= [ 0 ] 


In addition, from an inspection of the elements' of [C] given on 


page 200 

[C'*‘](0,0,[f°](0) ) = [0] 


and 


[c"](0,0,[f°](0) ) = [0] 



II 
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Thus, applying the second compatibility condition yields 


0 


0 

1 1 

\ 


c dt 


0 

\ 

1 ^^2 



k at J 


0 


Therefore, at t = 0 





(2.19) 




(2.20) 


Previously it was stated that g^(t) and g 2 (t) must satisfy certain 
conditions. These are given by (2.18), (2,19) and (2.20), The parti- 
cular forms of gj and g 2 chosen are 

g^(t) = Eq 2(1 “ cos 2Tro)t) (2.21) 

g2(t) = ^02^^ “ 27TO)t) (2,22) 

which, as can easily be seen, satisfy the restrictions listed above. 

Thus the boundary conditions for the example, in terms of the trans- 
formed variables, are 

Vis(O.t) = ^ {Vg(0,t) - a^Vj^(0,t)} + aJgCO.t) 

V^g(0,t) = {-^ Eoad - cos 2ira)t) + Vi(0,t)} 

Vjy(0,t) = ^ Sq 2(1 - cos 2iTa)t) - cV2(0,t) 

In conclusion, with the above forms for g^(t) and g^(t); i.e., 
the imposed disturbance, one is assured of satisfying the compatibility 
conditions. Thus, it is known from the existence theorem that a 
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isolutlon of equation (2.8) subject to the particular initial-values 

6 

and boundary conditions assumed does exist in 0 • Once this solution 


is found it is a simple matter to return to the original system. 


215 


SECTION III 

In this section the finite-difference scheme used to form the 
difference equations from the differential equations is developed. 

Once the difference equations are obtained the consistency, stability, 
and convergence are analyzed. 

1. Development of the Finite-Difference Scheme and the Difference 
Equations 

When using finite-differences to find a numerical solution, 
values of the unknown variables are obtained at a discrete set of 
points called net points. A rectangular net of lines, to be super- 
imposed on the (x,t) plane such that one family of lines is parallel 
to the x-axis and the other family of lines is parallel to the t-axis, 
are chosen. The lines are assumed equi-spaced with x interval Ax and 
t interval At, as illustrated below, where Ax and At are not necessarily 



X xH-Ax 
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If the function W(x,t) is defined only at the net points (kAx,£At) 
in the (x,t) plane, for integers, then the values of W(x,t) at 
the points of the previous figure are: 

PqI W(x,t) 

P^ : W(x - Ax, t) 

P^: W(x,t + At) 

P 3 : W(x + Ax,t) 

The forward and backward space difference quotients at Pq are written 

■— [W(x + Ax,t) - W(x,t)] 

and 

— [W(x,t) - W(x - Ax,t)] 

respectively, and both approximate the partial derivative 3V/Bx of 
the differentiable function V(x,t) whose values coincide with those 
of W(x,t) at each net point. Similarly, the forward time difference 
quotient at Pq is written 

" At ~ W(x,t)] 

and approximates the partial derivative 8V/3t. 

Previously the domain of dependence concept was discussed; i.e., 
values at q' , of the following figure, depend upon that portion of the 
previous time step intersected by the maximum positive and negative 
characteristics drawn backwards through q’ . The time and spatial 
steps are selected such that the tangents to the characteristics at 
Q*, when traced backwards, intersect the line through P and R at 
the points S^; i = 1,2, •••,17, between P and R. 
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along 
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(i) « 

Values of V at Q are written as V(q') and the discrete valued 
(i) 

approximation is W(q’). From the' previous figure. 


(i) 


S = S i + S j 

X ^t 

where i is a unit vector in the x-direction and j is a unit vector 
along the t-axls. It is easily seen that 


tan 6 


(i) 


t dt 


thus, setting = 1 and one obtains 


S, = X^^^i + 


and 


(i) 


^1 - 




i + 


1 + x^^^^ 
(i) 




Now, the derivative of in the direction of S is 


s. • vv 

1 


(i) _ 


(i) 




+ 


or 


S_ • VV 
1 


W x(i)^ 

+ x<«" 

(1) ^ 1 



dt 


r(i) 


jlTTwF' 

Now, let the finite-difference approximation to this directional 
derivative be 


VV 


(i) (i) 

(i) . " ^^^1^ 




( 3 . 3 ) 


( 3 . 4 ) 


( 3 . 5 ) 


However, from the previous figure it is seen that 

^ = sin 6^^^ 


where 
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sin 6 


(i) _ 


V 


1 + X 


(i)2 


therefore, 


SiQ’= / 

Thus, equation (3.5) can be written as 


1 + X^^^^ QQ' 


§. • 7V 

i • 


(i) 




1 + X 


(i)2 


(i) (i) 

W(Q') - W(S^) 


and thus, from equation (3.4) 

(i) (i) 

^^(i) W(Q') - W(S^) 




QQ' 


Then, from equation (3.2) one obtains 


(i.) (i) 

W(Q’) - W(S.) (i) 

^ s c(Q') . 

QQ' 


(3.6) 


(3.7) 


The points will not coincide with the net points (P,R) and thus 
W^^^(S.) is undefined since is defined only at net points. This 

^ (i) 

problem is solved by approximating W(S^) by linear interpolation between 
the values of at the adjacent net points. Clearly, if the gradient 

of Sj^Q' is positive, will lie between P and Q; whereas, if the grad- 
ient is negative, will lie between Q and R. 

If one assumes that lies between P and Q, then using linear 
interpolation yields 

(i) (i) sTq (1) sTp 

W(S.) = W(P) ^ + W(Q) (3.8) 

PQ PQ 


but. 


S^P » PQ - S^Q 
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therefore , 


(i) PQ - S^Q 


(i) (i) S Q 

W(S.) = W(P) + W(Q) -^3 

^ PQ PQ 


Again considering the previous figure, one finds 

,(i) 1_ At 


tan 0 


(i) 


SiQ 


(3.9) 


or 


S.Q = AtX 

X 


( 1 ) 


Also 


PQ = Ax 


therefore , 


At 

PQ 


Substituting the above in equation (3,9) and then using the resulting 
(i) 

expression for W(S.) in equation (3,7) yields 


X 

(i) v-i-/ /.N /.N 

+ a(q^ ) = c(Q^) 


(i) (,) (i) 


At 


(i) _(i) (i) 

where A(Q') and C(Q') involve W(Q'), which of course is not known. 

(i) ^(i) 

Therefore, one approximates A(Q') and C(Q') by their values at Q; 

i.e., the previous time step. One now concludes that if A^^^ is positive 

the difference equations are 


(i) 


(i) 


(i) 


(i) 


(i) 


(i) 


H(K,t + at) - ^ - W(:t - AK,t) . 

(3.10) 

whereas, if A^^^ is negative the difference equations are obtained 
similarly as 

(i) (i) /.fx (1) (i) /JN 

W (x,t At) - W( _ x,t l ^ W( x. ->- A . x,t^ - W(x,t) ^ 

^ (3.11) 
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"hus, from the preceding equations one sees that for characteristics 
with a positive gradient, the spatial derivatives in the corresponding 
equations are determined by backward finite-difference quotients; 
whereas, for characteristics with a negative gradient, spatial deriv- 
atives are determined by forward finite-difference quotients. 

In concluding this section, it should be noted that from an 

inspection of equation (3.10), it is seen that when applying the 

(i) 

equation at x * 0, W(-Ax,t) is required, which of course is not known. 

However, as has been previously stated, those variables associated 

with positive characteristics must be specified at x = 0 as a function 

of time. Thus, equation (3.10) is not applied at x = 0. Keeping this 

(i) 

in mind, from the preceding difference equations, W(x,t + At) can be 
found in terms of quantities calculated at the previous time step. 


2 . Consistency 

When approximating the solution of differential equations by the 
solution of difference equations there are three primary considerations: 
consistency, stability, and convergence. In this section the consis- 
tency of the difference equations is analyzed, while the stability and 
convergence are considered in the following sections. 

As previously stated, one can write the equations of the diagonal 
system as 


av 


(i) 


+ X 


(1) av 


( 1 ) 


= 1 = i,---, 


17 


3t 3x 

The difference equations corresponding to the differential equations 
above can be obtained, as illustrated in the previous section, by 


(3.12) 


replacing the time derivative by a forward finite-difference quotient 
and the spatial derivative by a backward finite- difference quotient. 
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assuming is positive. Now, at the net point (kAx,£At) one can 

write 


r(i) 


yd) _ y(i) 

V I, /> ■ ■« V , 


= ^k.-e+i ''k.-e . m 

'‘3t •'k.£ At 1 


(3.13) 


and 


_ \,l ■ \-l.£ (i) 

~ Ax ^2 


(3.14) 

Therefore, substituting these expressions into equation (3.12) yields 


(3.15) 


yd) _ yd) yd) _ yd) 

\,£+l \,£ ^ ^(i) \,£ \-l,£ ^ ^(i) ^ ^ 

At Ax *^1 ^2 

Thus, if the truncation error 

^(i) ^ ^(i) ^ ^(i)^(i) 


approaches zero as At 0 and Ax 0, the difference equations, obtained 
in the manner previously discussed, are said to be consistent. 

Using Taylor’s series with a remainder one can write 


where x' is some x between k and k-1. Similarly, 

.d) 


32yf^^ 


I- V, o -r a ^ n 


'k,£+l ~ ''k,£ “"^3t "k,£ 


(3.17) 


3t-= 


where t' is some t between £+1 and £. Now, using the above along with 
equations (3.13) and (3.14) it can be seen that 

d) 

,j,(i) _ _ At (k.t*) 


and 


3t' 


aZyd) 

,j,(i) _ Ax ^ ^(x* ,£) 


3x^ 
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Therefore, the total truncation error Is 

(1) At ” ^(k.t*) .(i) Ax ” ^(x' ,£.) 

T “ " O T A 

^ at2 2 

which Is 0(At,Ax) and thus approaches zero as At and Ax -*■ 0. Thus, 
the difference equations obtained by replacing the time derivative 
by forward differences and the spatial derivative by backward (or 
forward) differences are consistent with the differential equations. 

3. Stability 

In order to perform a stability analysis a typical difference 
equation Is treated as being linear and the stability of that one 
equation Is considered. By considering the worst possible case this 
then gives some Indication of the stability of the nonlinear system. 

A typical difference equation, using forward differences for the 
spatial derivative, Is 

\,l+l “ ~ ~ ^k,l^ ~ 

+ Atgj^^^; k = 0,1,---,(K-^) (3.18) 

whereas. If backward differences are used to replace the spatial 
derivatives , then 

“ ^k,£ " Ax ~ ^k-l,£^ ■ 

+ Atgj^^^; k = l,2,...,(K-^) (3.19) 

where K is the number of x-net points at £ = 0, b consists of collision 
frequencies and g of course is merely an element of [C] without the 
(bf]c term. In the stability analysis, instead of ^ one uses either 
the maximum or minimum value of A, depending on which yields the 
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c^.ost severe restriction on the step sizes, in the preceding equation. 

Now, at a particular time step takes on a value at each 

x-net point; thus, one can write all the values of ^ at a particular 
time step as a column matrix. Therefore, equation (3.18), as well as 
equation (3.19), may be written in the following form: 

. (3.20) 


Then the requirement for stability is that the eigenvalue of [M] having 
maximum absolute value must be less than 1. 

It can be seen that the [M] associated with equation (3.18), 
where Aj^ ^ has been replaced by -c, has the form 


where C = K.-Z+1 and c is the speed of light. Therefore, it is seen 
that f^j^ £+ 1 ) £+1 been taken to be zero although actually it cannot 
be calculated. Similarly the [M] associated with equation (3.19), 
where ^ has been replaced by c, has the form 

m. = (1 - c 4^ - bAt) (6.,-6.J + c 4^6. 
xj Ax xj xl' Ax x-l,j 


Here the fact that is specified instead of calculated is taken 

into account. It is easily seen in both cases that [M] is a triangular 
matrix and thus its eigenvalues are merely its diagonal elements. In 
addition, the eigenvalues of both cases are the same; namely, 0 and 
(1 - c - bAt). Therefore, for the difference equations to be stable 

At 


or 


1 - c - bAt < 1 
' Ax ' 


0 < (bAt + c) <2 
Ax 
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llheref ore , 




must be satisfied for the difference equations to be stable.- If one 
looks back at the governing equations, it is seen that the largest 
possible value for b is 


1 + a 


- (v _ + V ) 

2 el en 


thus , 


1 + a 


(v . + V ) + -T — 
2 ei en Ax 


In conclusion, it should be remembered that equation (3.22) was 
not derived for the non-linear system, but it does provide some guide. 


4. Convergence 

When the difference between the finite difference solution and 
the actual solution of the differential equations approaches zero as a 
limit as the time step decreases, convergence is said to be satisfied. 
First define the error associated with each variable at the net point 


(kAx,£At) as 


(i) ^ (1) _ (i). i = 1 2 ... 17 


Substituting this into equation (3.10) and rearranging yields 
k,£+l Ax k,£ ^ Ax \,'£“k-l,£ 

+ n - At +At /i) 

Ax k,£ k,£ ^k,£+l Ax k,£ 

'^k-i.A i = 1,2,...,17 
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Thus, letting = max ® measure of the error, using the 

fact that < 1 In a region where - f°^ ^|< Kj, and using 

the continuity of the solution, as given by the existence theorem, 
yields 


h-n - + 62“ 

for £ i 0, Eq = 0 and where and B 2 positive constants. The 

measure of the error from this inequality can always be made to satisfy 

that given in Ref. 9, for which it is shown that the measure does 

9 

indeed approach zero as At 0. In addition, Courant, et al. illustrates 
that there is a region contained within 0^ in which - f | < K^. 

Thus, one concludes that the finite difference solution converges to the 
solution of the differential equations as the time step approaches zero. 



SECTION IV 


When solving difference equations, using particular initial and 
boundary values, problems with stability which are not predicted in a 
linearized analysis such as in Section III may appear. In this sec- 
tion the investigation of the actual stability by computer experimen- 
tation is discussed and then a stable solution for the example problem 
is presented. The computer programs are listed in Appendix C. 

1. Analysis of Computer Experimentation for the Example Problem 
With the initial conditions previously assumed; i.e., 


5l(x,0) 


IndO^l) 

?2(x,0) 


IndO^l) 

? 3 (x, 0 ) 


ln(3.62 X 

u^(x,0) 


-1500 m/sec 

Ug(x,0) 


-1500 m/sec 

u^(x,0) 


-1500 m/sec 

v.(x,0) 


0 

V (x,0) 


0 

e 



v„(x,0) 


0 

n 



w^(x,0) 


0 

Wg(x.O) 


0 

w^(x,0) 


0 

Ei(x,0) 


0 

E2 (x,0) 


0 

E3(x,0) 


0 

B2(x,0) 


0 

B3(x,0) 


0 


• 9 


along with the forced boundary conditions at x * 0; i.e 
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N^(0,t) = N^(O.t) 

2Tro)t) 

B^COjt) = Bq 2(1 - cos 2Tra)t) (4.2) 

a solution of the difference equations for both the nonlinear and 
linear systems is desired. In addition, as given previously, = 
lO^OKj “ 200QOK and the collision frequencies used are 

V. = 3.73 X 10^ sec“*^, v. = 2.95 x 10® sec“^ 
le in 

V . = 2.76 X 10^® sec"^, v = 1.44 x 10^^ sec”^ 

ei en 

V . = 0.81 X 10^ sec"^, V = 5.36 x 10^ sec“^ . (4.3) 

nx * ne ^ 

With the conditions above, there are still five parameters which must 
be assigned values before the difference equations can be solved: 

At, Ax, Eq 2 , Bq 2 and co. The discussion which follows is primarily 
for the nonlinear system since the linear equations were stable in 
all stable cases of the nonlinear equations. 

Experimentation revealed that the x-component of the electron 
velocity, u^, had the greatest tendency of all variables to be un- 
stable. The solution for this variable was found to be very dependent 
upon the amplitude of the imposed magnetic field, Bq 2> where in 
general the larger Bo 2» the greater the tendency to Instability. The 
amplitude of the imposed electric field had little influence upon the 

solution for u and thus the stability was not influenced significantly, 
e 

by this parameter. 

With the amplitudes of the imposed magnetic and electric field 
disturbances, Bq2 ^ 02 > equal to 0.025 Wb/m^ and 100 V/m, 
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respectively, at a frequency, oi, of 10^^ sec““^, the solution was 
unstable with a time step of 2 x 10""^^ sec and a spatial step of 
2 X 10”^ m (Fig. 1). This figure only shows the x-'Component of the 
electron velocity, at the first space step away from the location of 
the disturbance as a function of time, but all other variables were 
divergent from the outset also. Note that the solution is unstable 
even though the stability criteria developed in Section III are 
satisfied. In addition the linear system was also unstable under 
these conditions. However, it should be remembered that the linear- 
ized stability criteria were developed from a consideration of only 
one linearized equation, not the entire system of equations. 

With the time step reduced to 5 x 10*^^ sec and the spatial 
step to 2.5 X 10“^ m, the plot of u^ in Fig. 2 indicates a stable 
solution when compared to Fig. 1. After 600 time steps in Fig. 2 
u^ is in stable oscillation; whereas, after an equivalent 150 time 
steps in Fig. 1, it has diverged. Figure 2 shows a small fluctuation 
in u^, but it should be noted that the scale has been greatly ex- 
panded from that in Fig. 1. This fluctuation would be difficult to 
detect if u^, for these conditions, were plotted with a scale such 
as that in Fig. 1. 

It has been illustrated above that reducing the time and spatial 
steps yields a solution which becomes more stable. However, with the 
reduced time step, if one wishes to cover a larger portion of the 
forced oscillation cycle, w must be increased. The results of in- 
creasing 0 ) to 10^^ sec"^ are presented in Fig. 3. Fifty time steps 
in Fig. 3 correspond to the same point in the forced oscillation 
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cycle as do 500 time steps in Fig. 2. Therefore the plot of in 
Fig. 3 is much less stable than that in Fig. 2. In Fig. 4 o) has been 
reduced to 4 x 10^^ sec“^ and thus 125 time steps in Fig. 4 correspond 
to the same point in the forced oscillation cycle as do 500 time 
steps in Fig. 2 and 50 time steps in Fig. 3. Therefore, Fig. 4 is 
more stable than Fig. 3, but less stable than Fig. 2, as would be 
expected since o) lies between the values used in Fig. 2 and Fig. 3. 

Previously it was stated that the amplitude of the imposed 
magnetic field influenced the stability, and from the above it is 
obvious that o) should be reduced below the value used in Fig. 4. Thus, 
with At = 5 X 10~"^^ sec and Ax = 2.5 x 10”^ m, it was decided to 
reduce oo and Bq 2 to values of 2 x 10^^ sec"^ and 0.005 Wb/m^, re- 
spectively, in the presentation of the plots of Figs. 5 and 6. 

Figure 5(a) illustrates that for these conditions the solution is 
stable; though, similar to Fig. 2, there is a slight fluctuation. 

This fluctuation is present to some extent in all the plots presented 
in Fig . 5 . 

The above discussion illustrates that the boundary values 
specified, as well as the time and spatial step sizes, influence the 
stability. It can be shown, by setting * 300^K so that the 

equilibrium values of u^, u^, and u^ may be set equal to -500 m/sec, 
that the conditions under which Fig. 1 was obtained yield a stable 
solution. Thus, the particular initial values also have a great 
influence on the stability. 

2. Presentation of the Solution of the Example Model 


As stated above, the plots presented in Figs. 5 and 6 were 
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obtained for At = 5 x 10""^^ sec, Ax * 2.5 x 10“^ m, o) * 2 x 10^^ sec"*^, 
Bq 2 = 0.005 Wb/m^, and Eq2 = 100 V/m. The initial and forced boundary 
conditions are given in equations (4.1), (4.2) and (4.3). 

Figures 5(a) - 5(k) are plots of those variables with significant 
changes from their equilibrium values as functions of time after one 
spatial step; whereas. Figs. 6(a) - 6(j) are plots of the variables 
versus spatial distance after 100 time steps. Note that for these 
latter plots the portion after about 17 spatial steps is shown enlarged. 
Figure 5(1) is a plot of u^ at the origin versus time and Figs. 6(k) 
and 6(1) are plots uf u^ and versus spatial distance after 150 time 
steps. As can be seen from plots of the variables versus spatial dis- 
tance, all variables rapidly approach their equilibrium values after 
only a few spatial steps. This is the reason for presenting plots 
of the variables versus time at or near the origin. 

Note that both the linear and non-linear solutions are presented 
on each plot. Figures 5(a) and 5(g) illustrate that in the linear 
case neither u^ nor E^, when plotted versus time, ever change from 
their respective initial or equilibrium value. However, from the same 
figures this is not the case in the nonlinear solutions since here 
u^ and E^ have a time dependence similar to that illustrated by 
the other variables. In a similar manner Figs. 6(a) and 6(f) illus- 
trate that when plotted versus the spatial coordinate, once again 
the linear solutions of u^ and show no change; whereas, the corres- 
ponding nonlinear solutions do. Note that since the nonlinear solu- 
tions approach their equilibrium values after only a few spatial steps 
the two cases quickly become identical. The remaining plots in 
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Figs. 5 and 6 indicate that the linear and non-linear solutions of 
all other variables are essentially the same. 

If one inspects the linear equations it is obvious that with an 
initial equilibrium state the equations which involve the x-components 
of the vector quantities are uncoupled from those involving the y and 
z components. Thus, when forcing boundary values of only variables 
in these directions, the variables in the x-direction can never change 
from their equilibrium values. It is readily seen that this uncoupling 
does not occur in the nonlinear equations. Thus, one would expect 
the linear and nonlinear solutions of the x-components of the electron 
velocity and electric field, u^ and E^, to differ to some extent. 



CONCLUSIONS 


The effect of forcing a’ disturbance upon a flowing three-fluid 
plasma Initially in equilibrium has been investigated. Thus it was 
necessary to solve the nonlinear equations governing the effect of 
forcing a disturbance at a point, as a function of time, upon a three- 
fluid plasma initially in equilibrium. For an example problem the 
solution was obtained using first the nonlinear and then the linearized 
equations . 

A diagonalization of the system of equations was required in 
order to have them in a workable form. This resulted in the assump- 
tion that the temperature of each fluid is a constant in order to 
prevent extra derivatives from appearing. In order to be assured of 
the existence of a unique solution, the boundary values of only cer- 
tain variables could be prescribed as the disturbance. These boundary 
values, wh' _h are functions of time, had to satisfy certain compati- 
bility conditions at the origin of the x-t plane. The time and spatial 
steps used in the difference equations were restricted to be extremely 
small by the speed of light and the magnitude of the collision fre- 
quencies. This was required in order for a stable solution which was 
a good approximation to the solution of the differential equations to 
exist. The number of field points which could be stored in the com- 
puter then determined the region in which the finite difference solu- 
tion could be obtained. This storage problem is a very real one for 
a system which contains 17 field variables, even though values were 
stored for at most two time steps. 
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A particular example for which a unique solution was shown to 
exist was formulated. A numerical solution of this example, for both 
the linear and nonlinear cases, which converged to the actual solution 
of the differential equations was obtained from the consistent set 
of difference equations developed. Computer experimentation revealed 
that though the stability criteria developed for one linearized equa- 
tion were satisfied, a stable solution was not necessarily obtained. 

In addition to the reduction of the step sizes, care had to be taken 
in the specification of the frequency and amplitude of the forced 
oscillation of the magnetic field in the y-direction at x = 0. From 
the solution of this example, it was found that all variables approach 
their equilibrium values in a very few spatial steps upstream of what 
is considered to be the disturbance. Absolutely nothing about the 
downstream section can be said. In fact, initial conditions cannot 
even be specified there since if they were, variables could not be 
prescribed as functions of time at the point considered to be x = 0. 

A goal of this study was to compare the solutions corresponding 
to the linear and nonlinear equations for the example formulated. 

With this example it was found that the x-components of the electron 
velocity and the electric field had different values for the linear 
and nonlinear solutions. However, even for these variables the 
solutions became the same wi^thin a very few spatial steps. Thus, a 
short distance from the disturbance the linearized equations gave 
solutions as accurate as those obtained using the nonlinear difference 


equations . 



-1000 



Figure 1. Electron Velocity in x-Direction vs. Number of Time 
-2000 h Steps for At = 2 x 10“^^ sec, Ax = 2 x 10“** m, Bq 2 

' = 0.025 Wb/m^, Eqo = 100 V/m, w = lO^^/sec, k = 1. 
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Figure 3. Electron Velocity in x-Direction vs. Number of Time 
Steps for At = 5 X 10"^** sec. Ax = 2.5 x 10“^ m, 

Bq 2 = 0.025 Wb/m^, Eq2 = 100 V/m, w = lO^Vsec, k = 1. 
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Figure 5(f). Neutral Species Velocity in z-Direction vs. Number of Time Steps. 
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' NO. TIME STEPS 

1 x-Dlrection vs. Number of Time Steps at k “ 0 




k - NO. SPATIAL STEPS 


Figure 6(a)v- Electron Velocity in x-Direction vs. Number 
of Spatial Steps for At - 5 x 10“^** sec. 

Ax ■ 2.5 X 10“® m, Bq 2 ” 0.005 Wb/m^, E 02 “ 
100 V/m, u - 2 X 10l°/sec, I - 100. 
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Figure 6(f). Electric Field In x-Dlrectlon vs. Number of 
Spatial Steps. 
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k ~ NO. SPATIAL STEPS 
Figure 6(1). Electric Field in x-Direction vs. Number 
of Spatial Steps at £. = 150. 
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APPENDIX A: GHAM-SCHMIDT ORTHOGONALIZATION PROCEDURE 


Given the set of 17 linearly Independent eigenvectors of [A] , 

It Is desired to find a corresponding set of unit orthogonal eigenvectors. 

12 

The Gram-Schmldt orthogonallzatlon procedure Is used for this purpose. 
First, let 

Xi , 

“ I(^ where £(Xi) - (Xi.Xi)^ . 

Then, let 

$2 ■ X 2 - ciei 

and thus, 

(©1,52) * (® 1 »X 2 ) - Ci(ei,ei) 

Now, since an orthogonal set is desired, (ex,52) ■ 0* Therefore, 
from the above, ci =* thus 

^2 * X 2 - (ex,X2)ei 

and _ 

*2 • 


If this procedure Is continued, It Is seen that In general 


and then 


_ _ j-1 _ 

- Xj - ^(e^,Xj)e^ ; j - 2, 3,-.., 17 

1=T 



yields the unit orthogonal set required. 
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APPENDIX B; CALCULATION OF AVERAGE COLLISION FREQUENCIES 


The expressions for the average collision frequencies below are 

13 

taken from Murphree and Yamada. Thus, 


V = A — 1 - /2it Js M 

ei 3 (4 t7K )2 •' (kt )3/2 ^ 


where 


and 


, K KT , 
A, _ / o e.h 
^ 

e 


r = 


’c 67 tK kt 
o e 


Using N = lO^^/cm^ and T = 10^^ °K, v . is calculated to be 2.76 


10^*^/sec. Now 


where 


and 


ei 


V = c N Q 
en e n^en 


8KT 1 

<= - (— ^)^ 
e TTin 

e 


TTd" 


^en 4 

Thus, using d = 2.87 x 10 ® cm as the diameter of an argon atom and 
\ X 10^®/cm^, is calculated to be 1.44 x lO^Vsec. Also, 


where 


V. = c,N Q. 
in 1 n^in 


8KT, 1 

c, . ( — 

1 m. 

1 


Using = 2000OK, is calculated to be 5.9 x 10®/sec. With these 
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average collision frequencies and the expressions from Ref. 1, the 
effective collision frequencies given in Section II may be obtained. 



APPENDIX C; COMPUTER PROGRAMS 



oonoooooooooooooonoonooooooooooooo.poonooo 
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DOUBLE PRECISION 2ETA1 ( 301 »2) r ZETA2 ( 301 f 2) »ZETA3 ( 30 1 » 
12) » VI (301 f 2) fV2(301f2) rV3(301»2) »V4(3(VT ,2 ) »V5(305 f?.) 
2rV6(301»2) rV7(301r2) f V8 (301 »21» V9 ( 30l p 2) »Vl0(30l»2) » 
3V11(301»2) »V12(301»2) »V13(301r2) f V14 ( 301 , 2) r V15 . 30 1 o 
42) »V16(301r2) r V17 (301 r 2) »D1 »D2 »D3 r 04 >N7. ( 301 » 2) oNr.(301 
5»2) »NN(301»2) rUI(301»2) r UE ( 301 f 2) »Ui\i ( 301 r 2> p VI ( 301 r 2) 
6VE(301 p2) pVN(301p2) pWI(301p2) pWE(301p2? pWM(301p 2) 
DOUBLE PRECISION El (30l p2) pE2 ( 301 p2) pE3 ( 301 p 2 ) r D2 ( 301 
1 p 2) »a3(301r2) pBlpCpAlrA2pA3pClpC2rC3fC4pCSpC6pC7pC8p 
2C9»C10pCllpCl2rCl3»Cl4»Cl5pCl6fCl7pEpMIpME> MNp)'pTpCF 12 
'3»CF13pCF21pCF23pCF31pCF32pMUpDSQRTpNl0pNE0pNN0pDC0Sr 
4E02pB02rOMEGApGl(2 ) pG2(2) 

C + **%***** + + >t'* + ^ + ** + +****** + ***4:** + * ♦♦♦♦♦♦♦*♦ ’!:***’!'** + **!f<*>P 
GIVEN THE INITIAL VALUES OF THE ELECTROMAGNETIC AND 
fluid field VaRIABLESp plus BOUNDARY VALUES FOR SOME 
VARIABLESp this program uses AN EXPLICIT FINITE - 
difference scheme to solve the NONLINEAR EQUATIONS. 

THE variables ARE PRINTED AT A PARTICULAR “IME STEP 
VERSUS the space STEPS. 

THE FOLLOWING DEFINES THE SYMBOLS USED. 

NIpNEpNN=NUMBER densities OF lONSpELECTRoNSf AND 
NEUTRALS RESrECTIVELY . 

ZETa1pZETA2pZETA3=NATURAL LOG OF THE IONpELECTRONp AND 
NEUTRAL number DENSITIES RESPECTIVELY. 
UIpUEpUN=VEL0C1TY in X DIRECTION OF IONSpELECTRONSp 

and neutrals 

VIp VEpVN=VELOcITY in Y direction OF IONS^ELECTROMSp and 
neutrals 

WIpW£pWN=VELOcITY IN Z DIRECTION OF IONS » ELECTRONS p 
AND NEUTRALS 

E1pE2pE3=ELECTRIC FIELD COMPONENTS IN THE X,YpZ 

directions 

BlP82pb3=MAGMETIC FIELD COMPONENTS IN THE XpYpZ 

directions 

A1pA2pA3=TH£RMAL VELOCITIES OF THE IONSpELECTRONSp AND 
NEUTRALS ASSUMING EACH FLUID IS ISOTHERMAL 
MIpMEpMN=MASS OF AN ION p ELECTRON p OR NEUTRAL 
XpT=THE step sizes IN THE SPATIAL AnD TIME COORDINATES 
C=SPE£D OF LIGHT 
MU=PERMEABILITY OF A VACUUM 
K0=PERMITTIVITY OF A VACUUM 

T1pT2pT3=TEMPERATURE OF THE IONSpELECTROnSp AND NF.UTRAL 

bc=boltzmann*s constant 

,E=ELECTR0NIC CHARGE 

VIp V2p . . . pVl7=THE ELEMENTS OF THE COLLUM MATRIX V p IN 
THE TRANSFCn^MAl.IOM U=TV. 

statement OF The problem. *«**5f.'*'!:+*#* 

THE PROBLEM IS SUCH THAT AT X=0 WE FORCE. E2 AND D-R TO 
BE certain functions OF TIMEp PLUSp' WE Al.SO 5>^ECJFY 
THAT NL=NI at X=0. THEN IF WE ASSUME THAT Ul fUEpANO UN 
are all in the negative X DIRECTION AND THAT UI ,(,T. 
Aip UE ,LT. A2p and UN .GT. A3 WE MUST CALCULATE Al.L 
OTHER variables at X=0. OF COUf?SE Wtl ALSO CALCULATE 
ALL OTHER VARIABLES AT LATER TIMES AND DIFFERENT 
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C SPATIAL LOCATIONS* INSTEAD OF E?> AND 0?- VIE COUi n HAVE 

C .SPECIFIED D2 AND 03 OR E2 AND E3 OR E3 AND R3o 

Q >|c ;jc ♦ iStts sit 3jc ❖ s!; 315: fr> s^ rj: v!; s^ :t- :!*: s^. :!: 

NI0=1,0DE1 

NE0=1.0D21 

MN0=3,62D24 

X=2,3D-5 


PI=3,1415927D0 

E=1.60D-19 

01=1. OD-4 

C=3.0D8 

MI=0o673D-25 

ME=9.UD-31 

MN=MI 

MU=12.56D-7 

BC=1.38D~23 

T1=200U.0D0 

T2=1.0D4 

T3=2000.0D0 

CF12=3.75D5 

CF13=2.95D8 

CF21=2«76D10 


CF23=1.44D11 
CF31=0.815D5 
CF32:=5.3602 
£ 02 = 100.000 
002=0,00500 
OM£6A=2.0D10 
Al=DSQRT(BC’S^ ri/MI ) 

A2=0SQRT(BC=!‘T2/ME) 

A3=DSQRT ( BC^i-TS/MN ) 

Dl=1.0D0/D5ORT(l«0D0+Al*>^2) 

02=1 . ODO/DSURT ( 1 . 0D0+A2<=«2 ) 
D3=1.0D0/DSuRT(1.0OO+A3+-«2) 

04=1 , ODO/DSQRT ( 1 . 0DO+C->!=2 ) 

C THIS READS IN THE INITIAL VALUES, The: ORIGIN IS TAKEN 

C TO BE (1»1) 

DO 80 K=l»301 
L=1 

NI(K»L)=NIO 
NE<K(-L)=NEO 
NN(KrL)=NNO 
UI (K»L)=-1500,0D0 
UEtKoL) =-1500, 000 
UN(KfL)=-1500,000 
VI (KpL) =0,000 
VE(KpL)=OoOOO 
VNiKfL) = 0.000 
WHKfL) =0,000 
WE (K»L) =0.000 
V4xl(KrL) =0,000 
EKKpL) =0,000 
E2(K(-L)=0.000 
E3(K(-L) =0,000 



n o 


269 


B2(K»U=0,0D0 
B3(KiL)=0.000 
ZF.TAl{KrL)=0L06(Nl(K»L) ) . 

ZETA2(K»L)=DL0G(NE(K»L) ) 

ZETA3(KrL)=DL0e(NN(K»L> ) 

Vl(K»L)=D4*(C*B3(K»U-E2(KrU ) 
V2(KrL)=D4*(E3<KrL)+C*B2(K»L) ) 
V3(K»L)=D2*(UE(KrL)-A2*ZETA2(K»L) ) 

V4(K»L)=D1*(UI (K»U-A1*ZETA1 (K»L> ) 
V5(K»L)=D3^(UN(KrL)-A3*ZETA3(K»L) ) 
V'feCK»L)=Dl*(ZETAl(K»L)+Al*UI(K»L) ) 
\/7tK»L)=D3»(ZETA3(K>L)+A3*UN(K»L) ) 

V6(KrL)=VI(K»L) 

V9(K»L)=WI (KrL) 

V10(K»L)=VE(K»L) 

VllCK»L)=WE(KrL) 

V12(K»L)=VN(K»L) 

Vl3(KrL)=WN(K»U 

V14(K»L)=El(KfL> 

V15(K»U=D2*(ZETA2(K»L)+A2*UE(K»L) ) 
V16(K»L)=D4*(C*E2{K»L)+B3(K»L) ) 
Vl7(KrL")=D4*(B2{K»L)-C*E3(K»L) ) 

80 CONTINUE 

THE initial Values have now been read in and have 

UNDER GONE THE TRANSFORMATION V=(T INVERSE) (U) 

22 J=301-M1 

T=5.0D-14 
M2=100 
DO 54 K=lrJ 

C1=-D4*C**2*MU*E*(V10 (K»L)*DEXP(D2*(V15(KfL)-A2* 
XV3(K»L) ) )-V8{K»L)*DEXP(D1*<V6(K»L)“A1*V4{K»L) ) ) ) 
C2=D4*C*+2*MU*e*(Vll(K»L)*DEXP(D2*(V15(K»L)-A2*V3 
1(K»L) ) )-V9(K»L)*DEXP(Dl*(V6(KfL)-Al*V4(K»L) ) ) ) 
C3=D2*(-(E/ME)*(Vl4(K»L)+V10(K»L)*D4*(C^Vl<KfL)+V16 
1(K»L) )«V11 (K»L)*D4(C*V2(K»D+V17(KrL) ) )+CP2l*(Dl* 
2(V4(K»L)+A1*V6(K»L) )-D2*(V3(K»L)+A2*V15(K»L) ) )+CF23* 
3(D3*(V5(K»L)+A3*v7(KrL) )-D2*(V3(K»L)+A2*Vl5(KfL) ) ) ) 
C4=D1*( (E/MI)+(Vl4(KrL)+V8(K»L)*D4*(C+Vl (K»L)+V16 
i (K»L) )-V9(K»L)*D4*(C*V2(K»L)+V17(K»L) ) ) +CF12* (02* 
2(V3(K»L)+A2*V15(K»L) ) -Dl* ( V4 (K »L) +A1 *V&(k f L) ) )+CF13* 
3(D3*{V5(KrL)+A3*V7(K»L) )-D1*(V4(K»L)+AX*V6(K»L) ) ) ) 
Cb=D3*(CF31*(DX*(V4(KrL)+AX*V6(K»L) ) -D3* ( V5 (K » L) +A3* 
XV7(KfL) ) )+CF32*(D2*(V3(K»L)+A2*VX5(K»L) ) -D3* ( V5 (K » L ) + 
2A3*V7(K»L) ) ) ) 

C6=AX*C4 

C7=A3*C5 

C8=(E/MI)*(D4*(C*VX6(KfL)-VX (KfL) )+BX*V9(KrL)-DX*D4* 
l(V4(KfL)+AX*V6(K»L) )*(C*VX{K»L)+Vl6(K.rL)) )+CFl2* 
2(VX0(K»L)-V6(K»L) )+CFX3*(VX2(K»L)-V8(KfL) ) 

C9=(E/MI )*(D4*(V2(KrL)-C*VX7(K »L) ) +L)l*04>tc ( V4 (K » L ) +AX* 
1V6(K»L) )*(C*V2(K»L)+VX7(K»L) )-BX*V8(KfL) )+C fX 2*(V1X 
2(K»L)-V9(K»L) )+CFX3*(VX3(KfL)-V9(K»L) ) 
CX0=(-E/ME)*(D4*(C*VX6(KfL)-VX(KfL) ) +EU*VXl(K rL) -D2* 
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lD4»(V3(K»U+A2*\/J.5{KfL) )>s(C>!'V3LCk»L)-!-V3.6(k»L) ) 
2(V8(KrU“ViO(i<i'U )+CF23*(Via(K»U)“V10(K»L) ) 
Cll=-(E/ME)>i'(D4*(V2(K»L)-C*Vi7(KrL) )+D2*04*(V3(KfU + 
1A2*V15 (KpI.) )’!^(C*v 2{K»L)+\/17(K»L) ) -B1*V10 (K rL) )-!-Cr23.« 
2(V9(K»U-vn(KrL) )+CF23*(V13<KrU-’Vil(KpL) > 
Cl2=CF31*(V8(KrU-V12(K»L) )-‘CF32+{V3.0{K»L)-V12(Krl.) ) 
Cl3=CF31»?:(V9(Kfl-)-\/13(KrL) )+CF32«(Vll(K?U)”V13(KfU ) 
C14=C<:*2*MU*E’^ ( 02* ( V3 ( K » L ) +A2*V15 ( K » L ) ) *oEXP ( Dl* ( V6 
1(K»L)-A1*V4 (KpL) ) )-D1*<V4(KpL)+A1.*V6(KpI,) )*DEXP{D2* 
2(V15(K»L)-A2*V3(KfL) ) ) ) 

C15=A2»C3 

C16=-C*C1 

C17=-C*C2 

VI ( H » L+1 ) =V 1 ( K r U + ( T/X ) ♦€* { VI ( K + 1 p L ) -VI (K f L ) ) +T*c X 
V2(K»L+l)=V2(KfL)+(T/X)*C*(V2(K+lpU)-V2{KpL) )+T*C2 
V3 (KpL+1)=V3(K»L)<-(T/X)*(D2*(V3(KpL)+A2*v15(KpL) )- A2)* 
1(V3(K+1pL)-V3(KpL) )+T*C3 

V4{KpL+1)=V4(K»L)-(T/X)*{D1*(V4(KpU)+A.I*v6(KpL) )-A1)* 
1(V4(K+1p6)-V4(KpD )+T*C4 

V5(K»L+l)=V5(K»L)-(T/X)*{D3*{V5(KpL)-f-A3*v7(KrL) )-A3>* 
1(V5(K+1 pL)-V5(KpL) )+T*C5 

V6(K»L+1)=V6(K»L)-(T/X)*(D1*(V4(KpL)+A1*v 6{K»L) )+Al)* 
l(V6(K+lfL)-V6(KpL) )+T*C6 

V7(KpL+1)=V7(K»L)-(T/X)*(D3*(V5(KpL)+A3*v7{KpU )+A3)* 
1(V7(K+1pL)-V7(KpL) )+T*C7 

V8(KpL+1)=V8(K»L)-(T/X)*(D1*(V4{KpL)+A1*v6(KpL) ) )* 

1 ( va ( K+1 rU -V8 (K pL) )+T*C8 

V9(KpL+l)=V9{K»L)-(T/X)*(D.l*(V4(KpL)-f*Al*V6(KpU) ) )* 
1(V9(K+1»L)-V9 (KpL) )+T#C9 

V10(KpL+1)=VX0(KpL)-(T/X)*{D2*(V3(KpL)+A2*V15{KpL) ) )* 
1(V10{K-MpU-V10(KpL) )+T*ClO 
Vll {K pL+1)=VX1 (KpL)-(T/X)*{D2*(V3(KpL)+A2*V15(KpL) ) )* 

-t (vii (k+ 1 pL)°vu(kpL) )+T*cn 

V12(KpL+l)=V12(KfL)-{T/X)*(D3*(V5(KpU+A3*V7(KpL) ) )* 
1(V12(K+1 pL)-V12(KpL) )-M*C12 
Vl3(KpL'M)=Vi3(KpL)-(T/X)*(D3*(V5(KpL)+A3*V7(KpL) ) )* 
1(V13(K+1 pL)-V13(K»L) )+T*C13 
V14(K»L+1)=V14(KpL)-(T/X)*{D1*(V4(KpL)+A1*V6(KpL) )+ 02* 
i (V3 (KpL)+A2*V15(KpL) ) ) * ( V14 ( K+1 pL ) -V l 4 (K pL > )+T*Cl4 
IF(K.EQ.1)G0 TO 53 

VX5(K»L+l)=V15(KpL)-(T/X)*(D2*(V3(Kpt)+A2*Vl5(KpL) )+ 
XA2)*(VX5(KpL)-VX5(K-XrL) )+T*CX5 
VX6(KrL+X)=Vl6(KpL)-{T/X)*C*(Vl6(KrL)-VX6(K"XpL) )+T* 
XCX6 

VX7(KpL+X)=v’17(KrL)-(T/X)*C*{VX7(KfL)-Vl7(K"XpL) )+T* 
XCX7 

GO TO X8 

Q 3tc * * % ♦ ^ ♦ 9^ 4^ 4^ * ^ ^* * ^ ^ :4c ^ ^ ^ ^ ^ ^ 

GX AND G2 ARE THE VALUES OF E2 AND 82 AT X=0 AS A 
FUNCTION OF TIME 

53 GX (L+X ) =E02* < 1 . ODO-DCOS ( 2 . ODO+PI *OMEGA*Ml *T ) ) 

G2 (L+X ) =B02* ( X . ODO-DCOS ( 2 . 0D0*PI *0MEGA*M1 *T ) ) 
VX5(1pL+X)=(DI/D2)*IV6(IpL+1)-A1*V4( 1pL+1 ) )+A2*V3< 1 pL+ 
XX) 
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V16 ( 1 r L+1 ) s ( 1 , ODO/C )♦((!. 0D0/D4) *G1 (L+1 ) +Vl ( 1 »L+1 ) ) 
V17 ( 1 » L+1) ~ a , 000/D4 ) *62 (L+1 ) -C+V2 ( 1 » L+1 ) 

18 IF(Ml,EQoM2)G0 TO 17 
GO TO 54 

17 2ETAl(K»2)=Dl*(V6(Kr2)-Al*V4(K»2) ) 

2ETA2(K»2)=D2*(V15(K»2)-A2*V3(K>2) ) 
ZETA3(Kr2)=D3*(V7(Kf2)-A3*V5(K»2) ) 

Ni (K»2)=DEXP(ZETA1(K»2) ) 

NE(Kf2)=DEXP(2ETA2(K»2) ) 

NN(K»2)=DEXP(ZETA3(Kf2) ) 
UI(K»2)=D1«(V4(K»2)+A1*V6(K»2) ) 
UE(Kf2)=D2#(V3(K»2)+A2*V15(K»2) ) 
UN(K»2)=D3«(V5(K»2)+A3*V7(K»2) ) 

VI(Kf2)=V8(Kf2) 

VE(K»2)=V10(K»2) 

VN(Kf2)=V12(K»2) 

WKKr2) =V9(K»2) 

WE(K»2)=V11(K»2) 

WN(Kr2)=V13(Kr2) 

E1(K»2)=V14(K»2) 

E2(Kr2)=D4*(C<'V16(K»2)-Vl(Kf2) ) 

E3(Kf 2)=D4:!c(V2(Kr2)-C«V17(K»2) > 
B2(Kr2)=D4«(C*V2(K»2)+V17(Kr2) ) 
B3(K»2)=D4*(G+-V1(K»2)+V16(K»2) ) 

WRITE (6» 62) K,M1»NI(K»2) »K»M1#NE(K»2) »K»M1»NN(K»2) 
WRITE (6r 64) K » Ml »UI (K » 2 ) »K »M1 »UE (K »2 > »K » Ml » UN (K »2) 
WRITE (6»66) K»M1»VI (K»2) »K»M1»VE(K»2 ) »K»m 1»VN(K»2) 
WRITE (6»68) K»MlrWI (K»2) »KrMl»WE(K»2) » K »Ml » WN (K »2) 
WRITE (6r 70) K »M1 »E1 (K »2) » K »M1 »E2 (K r 2) » K » Ml »E3 (K » 2) 
WRITE (6»72) K»M1»32(K»2) fK»Ml»B3(K»2) 

54 CONTINUE 

IN ORDER TO NOT OVERLOAD THE STORAGE CAPACITY OF THE 
COMPUTER I am RENAMING THE VARIABLES AFTER EVERY 
TIME STEP 
DO 82 K=1»J 
V1(K»1)=V1(K»2) 

V2(Krl)=V2(K»2) 

V3(K»1)=V3(K»2) 

V4(Krl)=V4(K»2) 

V5(K»1)=V5(K»2) 

V6(K»l)=V6(Kr2) 

V7(Krl)=V7(K»2) 

V8(K»1)=V8(K»2) 

V9(K»1)=V9(K»2) 

V10(K»l)=VlO(K»2) 

Vll(Krl)=Vll(Kr2) 

V12(K»1)=V12(K»2) 

V13(Krl)=V13(Kr2) 

V14(Krl)=V14(K»2) 

V15(K»1)=V15(K»2) 

V16(K»l)=Vl6(Kr2) 

V17(K»1)=V17(K»2) 

82 CONTINUE 
M1=M1+1 
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IF(M1.LE.M2)60 TO 22 

70 FORMAT(*0»»»E1(»»I3»»»»»I3»») =♦ rD22« 16»5X» *E2( ♦ r I5» ’ 

=»rD22.16f5Xr»E3(*rI3»*»»rIor*) =»rD22.16) 

62 FORMAT(»0»f ♦NK’rlSf^r’flSf ♦) =» fD22»16p5X» »NE( ♦ r I3» » » 
1»»I3»») =*»D22.16»5X»»NN(*»I3»»»»»I3»») =»*D22.16) 

64 F0RMAT(»0»»*Ul(*»I3f •»V»I3»») =♦ »D22.16r5X» »UE( • » I3» ♦ 

l»»»I3f») =»»022tl6»5X»»UN(*rI3r»»»fl3»») =*rD22,16) 

66 FORMAT(»0»»»VI(»»I3»»»»»I3#») = * »D22« 16j sXM VE ( « » I3» » 

=» rD22.16»5Xr ' » I3» ♦ » • » I3» ’ ) -’»n22.16) 

68 FORMAT(»0*f ’WI(*»I3»»p»fl3»») = » »D22 n 16 o r,X » » WE ( » » 13 » » 
l»»fI3»») =» »D22.16»5X» »WN( * » I3» ♦ » » » I3? <» ) =»f022,16) 

72 F0RMAT{»0»»»B2(*rl3»*»»rl3f ») =» » D22 « 16» <iX r »B3 ( • » I3» « 

lr»»I3»») =»rD22.l6) 

STOP 

END 
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DOUBLE PRECISION ZETAl (30l>2) »ZETA2(301»2) »ZETA3(301> 
12) » VI (301 f 2) rV2(301f2) »V3(301r2) fV4(301»2) rV5(301»2) 
2»V6(301r2) >V7(301»2) rV8(301r2) rV9(30lr2) »Vl0(301»2) » 
3V11(301»2) »V12(301»2) »V13(301»2) »V14(301>2) »V15(301» 
42)»V16(301»2) fV17(301»2) rDl»D2»D3»D4»Nl (301 »2) rNE(301 
5»2)»NN(301r2) rUI(301»2) »UE (30l »2) » UfM (301 » 2) »VI (301»2) 
6VE(30lr2) rVN(301r2) f W1 (30lr2) rW£(301>2) »WN(30l>2) 
DOUBLE PRECISION El(30lf 2) »E2(301»2) »E3(30l»2) »B2(30l 
lr2) rB3(301r2) rBlrC»Al»A2r A3rCl»C2»C3»C4»C5»C6»C7»C8» 
2C9rC10»Cll»C12»Cl3»Cl4»C15»Cl6»Cl7rE»MIrME»MNpX»T»CF12 
3»CF13»CF21rCF23fCF31»CF32fMU»DSQRTrNl0rNE0»NN0pDC0S» 
4E02»B02»OME6AfGl(2} »G2(2) rU10»UE0»UN0 
C 4c 4c 4 c 4^ 41 % 4c 4t 4c i|c 4c 4c 4c * 4c 4c * 4: 4: 4: * ^ ^ 4: 4; 4; 4; ^ ^ 

GIVEN THE INITIAL VALUES OF THE ELECTROMAGNETIC AND 
FLUID FIELD VaRIABLES» PLUS BOUNDARY VALUES FOR SOME 
VARIABLES# THIS PROGRAM USES AN EXPLICIT FINITE - 
DIFFERENCE SCHEME TO SOLVE THE LINEARIZED EQUATIONS. 
THfe VARIABLES ARE PRINTED AT A PARTICULAR SPACE STEP 
VERSUS THE time STEPS 

the following DEFINES THE SYMBOLS USED. 

NI»^NE»NN=NUMBER densities of lONSfELECTRONS# AND 
NEUTRALS respectively, 

ZETAl#ZETA2rZETA3=RATI0 OF FLUCTUATION IN NUMBER 
DENSITY TO THE EQUILIBRIUM VALUE FOR I0NS#ELECTR0NS 
AND NEUTRALS 

UI»UErUN=VELOClTY IN X DIRECTION OF I0NS#ELECTR0NS# 

AND NEUTRALS 

VI»VEfVN=VELOClTY IN Y DIRECTION OF lONSrELECTRONSr AND 
NEUTRALS 

WIrWErWN=VELOClTY IN Z DIRECTION OF I0NS»ELECTR0NS » 

AND NEUTRALS 

E1»E2»E3=ELECTRIC FIELD COMPONENTS IN THE X#Y»Z 
DIRECTIONS 

B1»B2#B3=MA6NETIC FIELD COMPONENTS IN THE XrY»Z 
DIRECTIONS 

A1»A2#A3=THERMAL VELOCITIES OF THE IONS# ELECTRONS# AND 
NEUTRALS ASSUMING EACH FLUID IS ISOTHERMAL 

mi»me»mn=mass of an ion#electron#or neutral 
x#t=the step sizes in the spatial and time coordinates 
C=SPEED of light 
mu=permeability of a vacuum 

K0=PERMITTIVITY OF A VACUUM 

T1»T2#T3=TEMPERATURE OF THE IONS# ELECTRONS# AND NEUTRAL 
BC=BOLTZMANN»S CONSTANT 
EsELECTRONIC CHARGE 

Vl»V2#...rV17=THE ELEMENTS OF THE COLLUM MATRIX V # IN 
THE TRANSFORMATION U=TV, 

4c 4t 4c 4c 4c * 4c 4c 4C 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c STATEMENT OF THE PROBLEM 4c 4c 4c 4c 4c « 4c 4< 4c 4c 4c 

the PROBLEM IS SUCH THAT AT X=0 WE FORCE E2 AND B2 TO 
BE CERTAIN FUNCTIONS OF TIME# PLUS# WE ALSO SPECIFY 
THAT NE=NI AT X=0. THEN IF WE ASSUME THAT Ul#UE#AND UN 
ARE ALL IN THE NEGATIVE X DIRECTION AND THAT UI .GT. 
Al» UE .LT. A2» AND UN .GT. A3 WE MUST CALCULATE ALL 
OTHER VARIABLES AT X=0. OF COURSE W£ ALSO CALCULATE 
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C ALL OTHER VARIABLES AT LATER TIMES AND DIFFERENT 

C SPATIAL locations. INSTEAD OF E2 AND B2 wE COULD HAVE 

C specified B2 and B3 OR' E2 AND E3 OR E3 AND B3. 

C 4^ * ♦ * 4^ * * * 4c ♦ * # 4: ♦ ♦ * « * 4c * 4: * # 4c 4c « 4c * * * i(c # :(c ;|c 4c « % « 4: 4c « ]|c 4c 4; 4c « 

NIO=1.0D21 

NE0=1.0D21 

NNO=3. 62024 

UIO=-1500*0D0 

UEO=-1500.0D0 

UNO=-1500,000 

X=2,5D-5 

PI=3,1415927D0 

E=1.60D-19 

Bl=1.0D-4 

C=3*0D8 

Ml=0.673D-25 

ME=9.11D-31 

MN=MI 

MU=12,56D-7 

BC=1.38D-23 

T1=2000.0D0 

T2=1.QD4 

T3=2000.0D0 

CF12=3.73D5 

CF13=2.95D8 

CF21=2.76D10 

CF23=1.44D11 

CF31=0.815D5 

CF32=5.36D2 

E02=100.0D0 

OMEGA=2,OD10 

B02=0,005DO 

A1=DSQRT(BC4cTi/MI) 

A2=DSQRT ( BC*T2/ME ) 

A3=DSQRT(8C4cT3/MN) 

Dl=l • 000/DSQRT ( 1 . 0D0+A14C4C2) 

D2=1 . ODO/DSQRT ( X . 0D0+A2*4c2 ) 

D3=X . ODO/DSQRT ( 1 . 0D0+A34C4C2 ) 

D4=l . ODO/DSQRT < 1 . 0D0+C*4c2 ) 

C THIS READS IN THE INITIAL VALUES. THE ORIGIN IS TAKEN 

C TO BE (Irl) 

DO 80 K=lr301 
L=1 

NI(K»L)=0.0D0 

NE(K»L)=O.ODO 

NN(KfL)=0.000 

UI(K»L)=O.ODO 

UE(K»L)=O.ODO 

UN(KrL)=O.ODO 

VnK»L)=0,0D0 

VE(K»L)=O.ODO 

VN(K»L)=0.0D0 

WI(KrL)=O.ODO 

WECK»L)=O.ODO 



r> o 


275 


WN(K»L)=0,0DQ 

El(KrL)=0,000 

E2(KrL)=0.000 

E3(K»L)=0.000 

B2(K>L)=0.000 

B3(K»L)=:0.0D0 

2ETAl(K»L)=r>II(KrL)/NI0 

ZET A2 ( K » U =NE ( K » U /NEO 

ZETASCKrUsNNCKrD/NNO 

Vl(KrL)=:D4*(C*B3(K»L)-E2(KrL) ) 

V2(KrL)=D4*(E3(K»L)+C*B2(K»U ) 

V3(KfU=D2*(UE(KfL)-A2*ZETA2(KfL) ) 

V4(K»L)=Dl*(UI(KrL)-Al*ZETAl(K»L) ) 

V5(K»L)=D3*(Un(K»L)-A3*ZETA3(K»L) ) 

V6(KrL)=Dl*(ZETAl(KrL)+Al»UI(KrL) ) 

V7(K»L)=D3*(ZETA3(K»L)+A3*UN(K»L) ) 

V8(K»L)=VI(K»L) 

V9CK»L)=WI(KrL> 

V10(K»L)=VE(K»L) 

VU(K»L)=WE(K»L) 

V12(K»L)=VN(K»L) 

V13vK»L)=WN(K»U 

V14(KfL)=El(K»L) 

V15(K»L)=02+(ZETA2(K»L)+A2*UE(K»L) ) 
V16(K»L)=D4*(C*E2(KfL)+B3(KrL> ) 
Vl7(KrL)=D4«(B2(KrL)-C*E3(K»L) ) 

80 CONTINUE 

THE initial values HAVE NOW BEEN REaO IN AND HAVE 
UNDER GONE THE TRANSFORMATION V=(T INVERSE) (U) 

Ml=l 

22 J=301-M1 

T=5.0D-14 
DO 54 K=1»J 

C1=-D4*C«*2*MU*E*(NEO«V10(K»L)-NIO*V8(K»L) > 
C2=D4*C**2*MU«E*(NE0«V11(K»L)-NI0*V9(K»L) ) 
C3=D2*(-(E/ME)*V14(K»L)+CF21*(D1*(V4(KpL)+Ai*V 6(K»L) )- 
lD2*(V3(KrL)+A2*Vl5(K»L) ) ) +CF23* (D3* ( V5 (K »D +A3*V7 
2(K»L) )"D2*(V3(KrL)+A2*V15(K»L) ) ) ) 
C4=Dl*((E/MI)*V14(K»L)+CF12*(D2*(V3(KrU+A2«Vl5(K»L))- 
1D1*(V4(K»L)+A1*V6(K»L) ) ) +CF13* (D3* C V5 (K »L) +A3*V7 
2(K»L) )-Dl*{V4(K»L)+Al*V6(K»L) ) ) ) 
C5=D3*(CF31 *(d 1*(V4(K»L)+A1*V6(K»L) )-D3=«(V5(KrL)+A3* 
1V7(K»L) ) )+CF32*(D2*(V3(K»L)+A2*V15(K»L) )-D3«(V5(K»L)+ 
2A3*V7(K»L)))) 

C6=A1*C4 

C7-A3*C5 

C8=(E/MI)*(D4*(C*V16(K»L)-V1(K»L) >+Bl*V9(K»L)-Ulo+D4* 
l(C*Vl(K»L)+Vl6(KrL) ) )+CF12*(V10(K»L,)-V8(K»L) )+CFl3* 
2(V12(K»L)-V8(K»L) ) 

C9=(E/MI)*(d4*(V2(K»L)-C*V17(K»L) )+UI0*D4*<C*V2(K»L)+ 
lVl7(KrL) )-Bl*V8<KrL) )+CF12*(Vll(K»L)-V9(KfL) )+CF13# 
2(V13(K»L)-V9(K»L) ) 

C10=-(E/ME)*(D4*{C*V16(K»L)-V1(K»L) )+Bl*vU(K»L)-UEO« 
1D4>«'(C*V1(K»L)+V16(K»L) > )+CF21*(V8(KfL)-VlO(K»L) )+CF23* 
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2(V12(K»L)-V10{K»L) ) 

Cll=- ( E/ME ) ♦ < D4» ( V2 ( K f L ) -C*V17 ( K » L > ) +UE0+D4* ( C* 
1V2(K»L)+V17(K»L) ) -Bl+VlO (K »L) ) +CF21* ( V9 (k»L) -V lX (K r LE 
2)+CF23*(V13(KfU-Vll(KfL)) 

C12=CF31*(V8(K»L)-V12(K»L) )+CF32*(V10(KrL)-Vl2(K»L) ) 
C13=CF31*(V9(K»L)-V13(K»L) )+CF32*(VH(KrL)-Vl3(K»L) ) 
C14=C*»2*MU*E*(UE0*NI0*ZETAl(KrL)-Ul0*NE0*ZETA2(KfL)+ 
1NI0*D2*(V3(K»L)+A2*V15(K»L) ) -NEO+Dl* ( V4 (k f L) +A1* 
2V6(K»U)) 

C15=A2*C3 
C16=-C*C1 
Cl7— “C*C2 

Vl(K»L+l)=Vl(K»L)+(T/X)*C*(VKK+lfL)-Vl(KfL) )+T*Cl 
V2 (K r L+i ) =V2 ( K » L ) + ( T/X ) *C* ( V2 (K+1 » L) -V2 ( K »<) ) +T*C2 
V3(K»L+l)=V3(K»L)-(T/X)*(UE0-A2)»(V3(K+lfL)-V3(KrL) )+ 
1T*C3 

V4(KfL+l)=V4(K»L)-(T/X)*(UlO-Al)*(V4(K+lfL)-V4(KfL) )+ 
1T*C4 

V5(KfL+l)=Vb(K'L)-(T/X)*{UN0-A3)*(V5(K+lrL)-V5(K»L) )+ 
1T*C5 

V6(KfL+l)=V6(KfL)-(T/X)=*={UI0+Al)*(V6(K + lrL)-V6(K»L) ) + 
1T*C6 

V7(K»L+1)=V7(K»L)-(T/X)*( UNO+A3 ) * ( V 7 ( K + 1 » L ) -V7 ( K » L ) ) + 
1T*C7 

V8(KrL+l)=Va(K»L)-(T/X)*UI0*(V6(K+lfL)-V8(K»L) )+T*C8 
V9(K»L+l)=V9(K»L)-(T/X)*UlO*(V9(K+lrL)-V9(KrL) )+T*C9 
V10<K»L+1)=V10(K»L)-<T/X)*UEO*(V10(K+1»L)~V10(K»L) )+T* 
ICIO 

VU(KfL+l)=Vll (K»U-{T/X)*UEO*{Vll(K + l»L)-Vll(KrL) )+T* 
ICll 

Vl2(K»L+l)=\/12<K»L)-(T/X)*UN0*(V12(K + l»L)-Vi2(KfL) )+T* 
1C12 

V13(K»L+1)=V13(K»L)-(T/X)*UNO*(V13(K+1»L)-Vi3(K»L) )+T* 
1C13 

V14(K»L+1)=V14(K»L)-(T/X)*(UI0+UE0)+{V14(K+1»L)- 
1V14(K*L) )+T*C14 
IF(K.EQ.l)GO TO 53 

Vl5{K»L+l)=V15(KfL)-(T/X)*(UE0+A2)*(V15(K»L)-V15(K- 
11»L) )+T*C15 

V16(K»L+1)=V16(K»L)-(T/X)*C*(V16(K»L>~V16(K-1»L) )+T* 
1C16 

Vl7(K»L+l)=Vl7(KrL)-(T/X)*C*(V17(K»L)-Vl7(K-l»L) )+T* 
1C17 

GO TO 54 

C****^********** + + *** + * + ***** + ^!f ♦♦*****♦*♦♦*♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦ 

G1 AND G2 ARE THE VALUES OF E2 AND B2 AT X=0 AS A 
FUNCTION OF TIME 
C ifc 4c !tc 4: 4: ^ 4: * 4: ^ ^ 4c 4: 4c 4: 4c :|c 4c )|c * 4c * 4^ 4; ^ 4c 4: 34 c 4c 4; 4; * 

53 Gi (L+1)=E024 c(1,ODO-DCOS(2.0DO*PI4cOMEGA*M 1*T) ) 
62(L+l)=B024'a.0D0-DCOS(2.0D0*Pl4cOM£GA*Ml*T) ) 

V15 ( 1 » L+1 ) = ( D1/D2 ) ♦ CV6 ( 1 r L+1 ) -A 1*V4 ( 1 » L+1 ) ) +A24 cV 3 ( 1 r L+ 
U) 

V16(1»L+1> = (1,0D0/C)4c( (1,0D0/D4)4cG 1{L+1)+V1 (lrL+1) ) 

Vl7 ( 1 »L+1 ) = ( 1 , 0D0/D4 ) 4=62 (L+1 ) -C4=V2 ( 1 f L+1 ) 
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54 CONTINUE 
M2=2 

ZETA1(M2»2)=D1>*'(V6(M2»2)-A1*\/4{M2»2) ) 
ZETA2(M2»2)=D2*(V15(M2»2)-A2*V3(M2»2) ) 
ZETA3(M2»2)=D3*(V7(M2»2)-A3*V5(M2»2) ) 
NI<M2»2)=ZETAl(M2f2)*NI0 
NE(M2»2)=ZETA2(M2»2)*NE0 
NN(M2r2)=ZETA3(M2»2)*NN0 
UI(M2»2)=Dl*(V4(M2f2)+Al^V6(M2»2) ) 
UE(M2»2)=D2*(v3(M2r2)+A2*Vl5(M2»2) ) 
UN(M2»2)=D3*(V5(M2»2)+A3*V7(M2r2) ) 

VI<M2»2)=V8(M2r2) 

VE(M2»2)=V10(M2»2) 

VN(M2»2)=V12(M2r2) 

WI(M2»2)=V9(M2»2) 

WE<M2»2)=Vll(M2r2) 

WN(M2f2)=V13(M2r2) 

E1(M2»2)=V14(M2*2) 

E2(M2»2)=D4*(C*Vl6(M2»2)-Vl(M2r2) ) 
E3-{M2r2)=D4*(V2(M2»2)-C*V17(M2»2) ) 
B2(M2»2)=D4*(C*V2(M2»2)+V17(M2r2) ) 
B3(M2»2)=D4*(C*V1(M2»2)+V16<M2»2) ) 
NI(M2»2)=NI(M2»2)+NI0 
NE(M2»2)=NE(M2»2)+NE0 
NN(M2»2)=NN(M2»2)+NN0 
UI(M2»2)=UI (M2»2)+UI0 
UE(M2r2)=UE(M2»2)+UE0 
UN(M2»2)=UN(M2r2)+UN0 

WRITE (6» 62) M2rMl»NI (M2»2) »M2 »M1 r NE (M2 »2 ) »M2 »M1 » 
1NN(M2»2) 

WRITE (6f 64) M2fMl»UI (M2r2) »M2»M1»UE(M2»2) »M2»M1» 
1UN(M2»2) 

WRITE (6» 66) M2»M1»VI (M2r2) rM2fMl»VE(M2»2) »M2rMl» 
1VN(M2»2) 

WRITE (6» 68) M2»Ml»WI(M2f2) »M2rMl»WE(M2»2) »M2fMl» 
1WN(M2»2) 

write ( 6» 70) M2rMl»El(M2f2) r M2 r Ml f E2 (M2 r 2) rM2rMl» 
lE3(M2r2) 

WRlTE(6r72) M2»M1 »B2 (M2»2) »M2 rMl rB3 (M2f 2) 

IN ORDER TO NOT OVERLOAD THE STORAGE CAPACITY OF THE 
COMPUTER I am RENAMING THE VARIABLES AFTER EVERY TIME 
STEP 

DO 82 K=lfJ 
Vl(K»l)=Vl(Kf2) 

V2(K»1)=V2(K»2) 

V3(K»1)=V3{K»2) 

V4(K»l)=V4(K»2) 

V5(K»1)=V5(K»2) 

V6(Krl)=V6(K»2) 

V7(K»1)=V7(K»2) 

V8(Kfl)=V8(Kr2) 

V9(K»1)=V9(K»2) 

V10(Kfl)=VlO(Kr2) 

V11(K»1)=V11(K»2) 
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V12(K»1)=V12(K»2) 

V13(K»1)=V13(K»2) 

Vl4(Kfl)=V14(K»2) 

V15(K»1)=V15(K»2) 

V16(K»1)=V16(K»2) 

V17(K»1)=V17(K»2) 

02 CONTINUE 
M1=M1+1 

IF(M1.L£. 270)60 TO 22 


70 

FORMAT ( 

f »E1(»»I3»» 

rl3» 

» ) = 

*r022.16»5X»*E2(»,I3»* 


1» » » I3» • ) = 

» f022.l6»5X 

t »E3( » 

rI3» 

»f»»l3r») =»»D22.16) 

62 

FORMAT( »0» 

r»(MI(»»I3r» 

f • »I3» 

*) = 

* »D22.16»5X» »NE( * r I3r » » 


l»rI3»») =» 

»U22.16»5Xr 

*NN( * r 

I3» » 

»*fI3r») =»»D22 o16) 

64 

F0RMAT( *0» 

» »UI ( » r I3r • 

»»»I3» 

• ) = 

»»D22.16»5X»»UE(»fI3»» 


Ir ♦ »I3» • ) = 

* »022.l6f 5X 

» »UN( » 

f I3» 

♦r*»l3»M =»rD22.l6) 

66 

FORMAT ( »0» 

» »VI ( ♦ »I3» » 

r * » 13 » 

♦) = 

» »D22.16»5Xf »VE( * »I3» ♦ 


i» « »I3» * ) = 

* »022.16»5X 

» ♦ VN ( • 

»I3» 

*»'»l3r») =»»D22.16) 

68 

format ( *0* 

» »WI ( » »I3» • 

» » »I3» 

») = 

» fD22.16»5X» »WE( » rI3r » 


1» » »I3» ♦ ) = 

• fD22.l6»5X 

» » WN ( * 

»I3f 

=’»D22.16) 

72 

F0RMAT( *0* 

lr»»I3f») = 

STOP 

f »B2( ♦ f I3» » 
♦ »U22.16) 

» * f I3» 

♦ ) = 

» »D22.16r5X» »B3( ' , I3» * 


END 
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